在#vba中使用transpose将数据从一个选项卡传输(复制和粘贴)到另一个选项卡
在VBA中使用Transpose函数可以将数据从一个选项卡传输（复制和粘贴）到另一个选项卡。Transpose函数是一个数组函数，它可以将行数据转置为列数据，或者将列数据转置为行数据。
具体步骤如下：
- 打开Excel，并打开包含数据的工作簿。
- 在VBA编辑器中，打开需要编写代码的工作表。
- 创建一个新的子过程或函数来执行数据传输操作。
- 使用Range对象来引用源选项卡中的数据范围。例如，可以使用以下代码引用A1:D10范围的数据：
- 使用Range对象来引用源选项卡中的数据范围。例如，可以使用以下代码引用A1:D10范围的数据：
- 使用Transpose函数将源数据转置为目标数据。例如，可以使用以下代码将源数据转置为目标数据：
- 使用Transpose函数将源数据转置为目标数据。例如，可以使用以下代码将源数据转置为目标数据：
- 这里使用Resize方法来调整目标范围的大小，使其与源数据的大小相匹配。然后，将转置后的数据赋值给目标范围。
- 完成后，保存并关闭VBA编辑器。
这样，数据就会从源选项卡传输到目标选项卡，并且以转置的形式显示。
在这个过程中，VBA的Transpose函数起到了关键作用，它可以方便地将行列数据进行转置。这在处理大量数据或需要重新排列数据的情况下非常有用。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云数据库（TencentDB）：https://cloud.tencent.com/product/tencentdb
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云区块链（Blockchain）：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙（Metaverse）：https://cloud.tencent.com/product/metaverse
请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估和决策。
相关·内容
3回答
嗯，我知道，VBA宏和非VBA宏在访问方面是有区别的。
创建和编辑VBA-宏与Word/Excel没有太大区别:您有一个文本字段，可以在其中编写代码：
但是非VBA宏的编辑呢？对我来说，它看起来像是“用鼠标点击编程”(对我来说，对于Access中的新人来说，这看起来很奇怪)：
问题：
在访问“使用鼠标”时编辑非VBA宏是一种常见而正确的方法吗？或者，也许还有另一种方式，如第一张图片所示？
如果我有一个非VBA宏，我如何将它从一个数据库复制到另一个数据库(或者，堆栈溢出)？
浏览 0提问于2018-03-31得票数 1
回答已采纳
2回答
运行宏时的复制和粘贴保护
、、、、
我用Word的VBA编写了一个宏，宏应该运行10-20分钟，并且宏使用从一个文档到另一个文档的复制和粘贴操作。 我担心用户会在我的宏运行时复制和粘贴计算机上的其他软件，因此宏将崩溃，做一些意想不到的和不正确的事情。 我想警告宏用户要小心，不要复制。 但我的问题是，我是否可以防止用户复制，并且只有我的宏可以运行，并从Word文档复制并粘贴到另一个Word文档中而不会出现问题？ 我一直在寻找在复制和粘贴中不使用宏的方法，但我没有找到，这是我知道的唯一方法来完成宏应该做的事情。 需要注意的是，我也可以通过VSTO插件在C#中运行宏。
浏览 15提问于2020-10-30得票数 0
回答已采纳
我正在将数据从一个工作表复制到另一个工作表，从源范围(Q5:AIxxx)复制到目标范围(C6:Uxxx)。
我的VBA代码从一个单元格开始，循环到列的末尾，以完成对该列数据的复制：
Set s = Worksheets("Source")
Set d = Worksheets("Destination")
Dim i As Integer, j As Integer
j = 6
For i = 5 To 1500
If s.Cells(i, 1).Value = "a" Or s.Cells(i, 1).Value = "b&#
浏览 3提问于2016-09-10得票数 1
回答已采纳
如何使用VBA将数据从一个文件复制到另一个文件？当我运行这段代码时，我得到一个错误-“运行时错误'1004‘：应用程序定义或对象定义的错误”。我正在使用Excel 2010
Sub nextfile()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("MAIN Pivot Table.xlsx
浏览 1提问于2014-01-09得票数 0
1回答
我相信这一定是个愚蠢的问题。我被困在将一系列数据从一个工作表复制到另一个工作表中。它能很好地处理常规数据。但是，当我尝试使用PasteSpecial来转换数据时。它不起作用。我没有收到任何错误或弹出，同时，我看到数据没有被复制。
我的成功代码是
With ActiveWorkbook.Sheets("Consolidate_Data")
.Range(.Cells(1 + j, 1), .Cells(350 + j, 3)).Copy _
Destination:=ActiveWorkbook.Sheets("Template").Cells
浏览 2提问于2017-11-04得票数 0
回答已采纳
我要做的是将一整列从一个工作表复制到另一个工作表。我只得到第一行的结果，如下所示：
Sheets("z_raw").Select
Range("A2").End(xlDown).Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("raw").Select
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=Fa
浏览 26提问于2018-07-20得票数 0
回答已采纳
1回答
我想将单元格的值和格式(文本颜色、字体大小、粗体等)从一个工作簿拉入/复制到另一个工作簿。
据我所知，使用标准的单元格引用是行不通的，你需要vba。
下面是一些在同一个工作表中将格式从a3复制到a10的vba代码：
Dim ping As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
If ping = False Then
Range("A3").Copy
Range(&
浏览 1提问于2017-05-24得票数 0
1回答
如果标题混淆了，我很抱歉。在搜索选项卡的List中，我收到了一堆订单。我所做的就是以这样的方式在一个单元格中选择盘子：
📷
我只想将它们转储到<#>Search中的Dish选项卡中的A列“菜品搜索”部分。查询应该从Inventory选项卡中获取相关的菜品，省略菜名前的数字，即"1_“或"1___”。基本上，只是省略了这部分，只得到了菜名，而不用我做任何额外的工作。
菜肴前的数字大部分是这两种模式中的一种，"1_“或"1___”。
如果这个细节有帮助，那么所有菜肴都有一个D00 -或D000 -格式的索引号。
这是我工作的基本例程，从一个单元格中复制盘
浏览 0提问于2020-11-02得票数 1
回答已采纳
1回答
我在下面的代码中做错了什么？我正在尝试命名在excel中突出显示的数据范围，并能够在VBA代码中调用它，然后将其粘贴、转置等到其他地方，但它总是给我一个错误。
Sub routine()
Dim rng As Range
Set rng = ActiveCell.CurrentRegion
Cells(10, "D").Select
rng.PasteSpecial
End Sub
我还注意到当输入“ActiveCell”时。然后按空格键，我会得到一个选项的下拉列表。然而，当我输入“Cells(1，1)”时，情况就不是这样了。和空间。为什么会这样呢？感谢你们的帮助！
浏览 0提问于2012-11-10得票数 1
回答已采纳
在excel中，我试图将文本从一个单元格复制到另一个工作表中的另一个单元格中。源单元格包含格式化文本(粗体、下划线、不同颜色)。但是，当我使用VBA将文本复制到另一个单元格时，格式将丢失。
我知道这是因为excel只是在复制文本值。我们是否可以从单元格中读取HTML文本(而不是纯文本)？
我在谷歌上搜索过这个，没有得到任何答案。我知道，如果我们使用复制和粘贴方法，我们可以复制格式。例如。
Range("F10").Select
Selection.Copy
Range("I10").Select
ActiveSheet.Paste
，但我不想复制和粘贴，因为我的
浏览 9提问于2012-08-07得票数 8
回答已采纳
1回答
很抱歉，我是VBA的新手，因为我相信您已经猜到了。之前没有任何类似问题的答案能够解决我的问题。
我有大量的Excel工作簿，每个工作簿都有多个工作表，每个工作表都有不同的名称和不同范围内的所需信息。
为了合并并基本上手动更新仪表板类型的电子表格，其中包含所有最新信息，我一直在将数据复制并粘贴到“主表”中。不同的工作簿(作业)在这方面也有不同的范围。我一直在使用paste的特殊，值，转置函数。
在选择并复制所需信息后，我正在尝试提出宏粘贴/值/转置。
我已经尝试了前面问题中的多个建议，但似乎没有一个对我有效。
Sub paste_values()
wbkCurrent.Activate
浏览 0提问于2019-04-18得票数 0
2回答
我试图在VBA中创建一个函数，该函数根据函数的输入将数据从一个工作表复制到另一个工作表。但是，我很难在实际函数本身中使用函数的参数。
下面是我的代码:正如你所看到的，我想要的范围现在是硬编码的，这是工作的！但我不能让它接受作为函数参数传递的范围。我做错了什么？
数据应代替范围(F35:F65)，目标应取代范围(C6)
Function Copytranspose(data As Range, target As Range)
Worksheets("Data").Activate
ActiveSheet.Range("F35:F65
浏览 10提问于2021-12-07得票数 1
回答已采纳
通常情况下，为了将凭据从一台计算机复制到另一台计算机，我将把内容复制到远程服务器上的文件中。有办法用二进制数据做到这一点吗？例如，我有一个python .pickle文件，我想要复制到另一个位置。除了使用其他实用工具(如scp或git )之外，是否可以将数据复制/粘贴到远程文件？
注意:这并不是要在本地复制文件。我在问如何将本地计算机上二进制文件的内容复制到远程计算机。
浏览 0提问于2020-01-22得票数 0
回答已采纳
我正在尝试使用VBA复制和粘贴数据，并在单元格中维护数据验证，但我的代码给了我错误。
这是我所拥有的
Sheets("INITIAL").Activate
Range("aa8:ah8").Copy
Sheets("SERVICES BREAKDOWN").Activate
Range("aa8:ah8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks _
浏览 0提问于2019-03-26得票数 0
当我意外地运行VBA代码多次将数据从一个工作簿复制/粘贴到目标工作簿时，它将在目标工作表中创建多个具有相同数据的行。
我希望VBA代码识别前一行是相同的，以防止数据重复。
此外，我的VBA代码将把公式复制到目标Excel文件中。
我只想复制值，而不是公式。我不知道如何在我的VBA代码中使用PasteSpecial。
Sub Copy_Paste_Below_Last_Cell()
Dim wsDest As Worksheet
Dim lDestLastRow As Long
Set wsDest = Workbooks("Destin
浏览 6提问于2021-01-20得票数 1
回答已采纳
我试图使用导入范围函数将数据从一个Google工作表导入到另一个工作表，我的数据没有那么大，它只有四列，行是2000，而当导入该数据量时，该函数也显示了导入范围内部错误。
我甚至在下面的链接中尝试了给定的方法，但也没有使用iferror函数，而是显示了导入范围内部错误。
是否存在将数据从一个工作表导入到另一个工作表的解决方案？
我还使用了coupler.io扩展，它在我的页面上也做得不太好。
使用棱镜
浏览 0提问于2021-07-22得票数 0
我有一个文件，我使用动态复制和粘贴vba，一切正常，但当过滤输出只有1行时，该过程粘贴一行，在粘贴目标范围内复制它(从第1行到末尾)。只有当过滤后的输出为一行时，才会发生这种情况。
下面是我的复制代码：
Select Filtered data Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
If Selection.Columns(1).SpecialCells(xlCellTypeVis
浏览 1提问于2015-08-13得票数 0
我想将数据从一个工作表的特定单元格复制到另一个工作表的特定单元格。
这是我尝试过的代码
Private Sub CommandButton1_Click()
Sheets("KeyInformation").Select
Range("A2:Q2").Select
Range("A2:Q2").Copy
Sheets("Factsheet").Select
Range("B9:B25").Select
ActiveSheet.Paste
Sheets("Factsheet").Select
End
浏览 0提问于2016-02-26得票数 0
回答已采纳
1回答
复制跌落
、
我有一个VBA宏，它将公式和值从一个工作表复制到另一个工作表。问题是，当它复制下拉列表时，它会删除列表，只复制值。
我尝试了以下两种方法，但两者都有相同的问题。
wb_to.Sheets("Core").Range(cel_loc_new).PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
和
wb_to.Sheets("Core").Range(cel_loc_new).PasteSpecial Paste:=xlPaste
浏览 3提问于2022-09-05得票数 1
回答已采纳
我想使用Excel vba将特定列中的数据从一个工作簿复制到另一个工作簿。例如，我想从A2开始，将工作簿1中的A、B、E、G、H、M、N列复制到工作簿2。
目前，我正在使用这个例子，但它并没有达到我希望宏起作用的目的。我已经包含了我目前使用的代码，如下所示：
Sub SO()
Dim lastRow As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Workbooks("workbook1.xlsm").WorkSheets("Sheet1")
Set ws2 = Workbooks(&#
浏览 3提问于2017-04-18得票数 0
我是VBA的新手，我知道如何在目标单元格的位置已知的情况下将单元格值从一个工作簿复制到另一个工作簿。
我需要的是让用户选择工作表中的单个单元格，当单击附加到宏的命令按钮时，数据将从固定位置复制到该单元格。
如果有任何建议我将不胜感激。
我需要打开一个新的工作簿并复制单元格/命名区域，然后返回到原始工作簿并粘贴到用户选择的位置。如果是range，则将选定的单元格作为起始单元格。
浏览 3提问于2012-05-30得票数 0
我正在使用下面的代码将特定范围从一个Workbook复制到另一个Workbook，它工作得很好。
但现在我需要在粘贴到目标工作表之前按升序对Range进行排序，而不更改源。请帮帮忙。
With Workbooks(strExcelFile).Sheets(strSheetName)
.Range(strRange).Copy
End With
ActiveSheet.Range(strDestCell).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=Fals
浏览 0提问于2013-02-22得票数 1
回答已采纳
我是VBA的新手，遇到了困难，需要一些帮助。我需要一个代码与条件相匹配的日期在单元格(J1)在sheet1 (“执行摘要”)的日期范围(A3:A60)在sheet2 (“每月评论”)，如果条件得到满足，复制行的数据在单元格"S3:S30“在sheet1(”执行摘要“)，并粘贴数据的转置版本到sheet2的日期匹配的地方。 目前我有一个按钮，其中包含一个代码，它复制我的工作表1 "Exec Summary“中的评论部分(单元格S)，并将该评论部分的转置从"Exec Summary”粘贴到另一个工作表"Monthly comments“中(如果该行为空)。如果有任
浏览 18提问于2019-09-12得票数 0
在VBA中，如何只从一个Word文档中提取文本的一个子串(但经过格式化，使其保持粗体/斜体/在表中)，并将其添加到另一个文档中？
浏览 6提问于2015-08-06得票数 0
我正在尝试使用VBA高效地将数据列从一个工作表复制到Excel中的另一个工作表，从定义的列名称开始。 我不确定为什么我的代码不能工作。我再怎么强调也不为过，我对编码的了解是如此之少。我正在尝试自学VBA，以便在Excel中操作大量数据。 Function SortDataC()
'cuts and pastes columns from the unsorted worksheet to the sorted worksheet
Worksheets("UnsortedData").Range("DeltaModScore").Copy Desti
浏览 5提问于2019-01-11得票数 0
1回答
正如您所看到的，我正在将4列数据从一个工作簿复制到另一个工作簿。我被困在一种情况下，目的地有8列，我的列面积是1,2,5,7。你能建议我修改一下代码吗？下面这一条只适用于前4列。谢谢。
Sub Copymc()
Dim x As Workbook
Dim y As Workbook
Dim rng As Range
Set x = Workbooks.Open("H:\testing\Q4 2014\US RMBS Q4.xlsx")
Set y = Workbooks.Open("H:\testing\demo\test1.xlsx")
Dim Last
浏览 0提问于2015-03-03得票数 0
回答已采纳
我在Google中有一个电子表格，其中有两个数据行和许多列，如下所示：
📷
是否可以轻松地将这些行转换为两列和多行(显然保留了所有信息和公式)？换句话说，类似这样的事情：
19.9.2009 967,15 €
28.9.2009 950,78 €
12.11.2009 942,03 €
.. ..
这种转换可能有一个简洁的数学术语，但我不记得是哪一个(矩阵什么的？)。可以为这个问题建议一个更好的名字。
编辑:为了澄清，我最终想摆脱原来的(两行)版本，并继续进行转换的版本。TRANSPOSE()，艾尔·埃弗雷特，让我离得很近，但并不完全在那里。我想要的原始数据
浏览 0提问于2010-09-21得票数 115
回答已采纳
我正在尝试将工作表从一个工作簿复制到另一个工作簿。我有一个单独的函数来循环浏览父文件夹中的文件(源)，并将摘要选项卡从文件复制到其指定选项卡中的主文件中。有没有办法在复制到主工作簿时保留与源文件中相同的水平(行)分组？我试过的代码如下，但分组不能通过。 Private Function CopyAndPaste(wsCopy As Worksheet, wsDest As Worksheet)
wsCopy.Range("A1:Z500").EntireRow.Copy
wsDest.Range("A1").PasteSpecial Paste
浏览 11提问于2021-04-20得票数 0
我希望使用“列名”从一个Excel工作表中复制数据，并使用VBA将该数据粘贴到具有相同列名的另一个工作表中。我正在使用Excel 2016。
我不想在复制数据时使用列字母作为参考。我想使用列名，因为我的工作表一直在变化。
浏览 0提问于2018-05-26得票数 0
回答已采纳
1回答
大家晚上好。我必须构建一个SSIS包，如下所示：
1)向XLS文件执行VBA代码(将范围转到另一个范围) 2)保存XLS (在同一文件中或作为新文件) 3)从转置范围导入修改的XLS。
基本上，我必须在必须导入的XLS中转换数据，而且在SSIS中找不到一个很好的方法(因为列范围可以在文件之间改变)。
使用这个简单的VBA脚本，我可以这样做，并使SSIS以非常简单的方式读取数据。但是，在不修改Excel之前手动添加脚本和运行VBA脚本的情况下，我无法找到一种应用此代码的方法。我想自动化这一点，以便包准备xls，提取新数据，并将其保存到表中。
有人能对如何应用这段代码或其他方法提出一些想法吗？最重
浏览 1提问于2015-02-11得票数 1
回答已采纳
4回答
我有两个工作表、联系人和邮件
Google电子表格中筛选/筛选视图之后的Contacts : Column B中的可见单元格需要复制到Mailer的A列。
因为还没有打开函数来获取行的可见性，我该怎么做呢？我不想写太多FILTER()代码，因为筛选器可以不断更改，它们将是用户defined...the结果将始终在列B中。
请让我了解解决方案/变通方法。
最坏的情况:在打开行可见性函数之前，我们将不得不手动将单元格从一个工作表复制到另一个工作表，但我希望避免这种情况
浏览 6提问于2014-03-19得票数 18
大家好，我是VBA的初学者。我有个问题。我正在尝试将数据从一个工作表区域(A27:K35)粘贴到另一个工作表区域(A9:K17)。有一个小问题。用户不必输入所有行。他/她可以根据需要输入1-8个roaws。例如，如果在工作表1中输入了行A27:K30，则应将该数据复制到工作表2中的行A9:K12，而不复制空白。我设法写了一些东西，但它一次复制了所有8行。有人能帮我解决避免空格的问题吗？
提交是一个带有宏的按钮，如下面工作表1中所述。
Sub Submit()
Range("A27:K35").Select
Selection.Copy
Sheets("
浏览 1提问于2015-01-28得票数 0
我正在尝试使用Microsoft.Office.Interop.Word将整个内容(包括页码和页面布局)从一个word文档复制到另一个word文档。我不能使用SaveAs方法，因为我要粘贴内容的文档已经创建，并且它包含VBA代码。另外，我不能使用与XML相关的代码，因为我要复制内容的文档是旧格式的。本文档是使用VBA代码将文档上载到服务器数据库的旧方法的一部分。
使用VBA代码，我可以复制整个内容而不会出现任何问题。
Selection.WholeStory
Selection.Copy
Windows("document.doc").Activate
Selectio
浏览 25提问于2019-11-25得票数 0
回答已采纳
我需要将数据从第8行复制到另一个工作表(工作表2)。我只需要复制其他单元格，它应该从所有单元格IK8中复制单元格C8(值所在的第一个单元格)、E8、G8、I8等等。
有没有办法做到这一点？我已经在for循环中尝试了step函数，但它不起作用，并且只选择一个cell.It仅为单元格H2:H130粘贴一个值。
Sub Workplace()
Dim rng As Range
Dim LastRow As Long
Dim I As Long
LastRow = Worksheets("Questions").Range("C" & Rows.Count)
浏览 0提问于2020-03-05得票数 1
2回答
=VLOOKUP($I13,Data!$B$13:$XFD$1048576,MATCH(M$10,Data!$B$11:$XFD$11,0),FALSE)
这是我试图转换到VBA以提高效率的功能。
其目的是将页面上的日期链接到另一个页面(I13)，然后将标题从一个页面匹配到另一个页面(M10)，这样当我输入一个新的标题时，它就会自动从充满数据的工作表中提取数据。这就是上面的函数所做的，我如何转换为VBA？
谢谢
浏览 0提问于2016-07-26得票数 0
1回答
我们正在使用Erwin Data Modeler来记录我们的数据库，我们已经完成了我们的一个数据库(从反向工程开始，手工编译了所有的实体和属性定义)，现在转移到第二个数据库。由于这两个数据库非常相似，是否可以将属性定义从一个Erwin文件复制到另一个Erwin文件？
谢谢!
浏览 5提问于2021-06-10得票数 0
我希望能够使用VBA将粘贴对象指定的宏复制到另一个工作表中。
下面的代码将一个工作表的格式复制并粘贴到另一个工作表，但不复制和粘贴工作表中的宏。
WshTrg.Cells.PasteSpecial xlPasteFormats
WshTrg.Cells.PasteSpecial xlPasteColumnWidths
WshTrg.Cells.PasteSpecial xlPasteFormulasAndNumberFormats
WshTrg.Cells.PasteSpecial xlPasteAll
有没有一种方法可以将对象从
浏览 0提问于2019-10-03得票数 0
我正在尝试将数据从一个工作表复制到另一个工作表。要粘贴到的工作表中创建了一个表，我想将值粘贴到该表中。我有这段代码来做复制，但是它不做复制。
Dim LastRow1 As Long
Dim s As Long, w As Long
With Worksheets("PlaceHolderDD")
LastRow1 = .Cells(.Rows.COUNT, "A").End(xlUp).Row
End With
With Worksheets("KYC Feedback Page 2")
w = .Cells(.Rows.COUNT, &#
浏览 2提问于2017-08-01得票数 1
回答已采纳
实际上，我在三列中有数据，在单独的选项卡上有一个模型。data选项卡有1000行数据，每个条目都将通过模型运行，并将结果粘贴到第四列中。 下面是一次迭代的样子，但我需要它循环遍历每一行。 Worksheets("Data").Range("E2:G2").Copy _
Worksheets("Model").Range("B4:D4").PasteSpecial Paste:=xlPasteValues
Calculate
Worksheets("Model").Range("C120").
浏览 120提问于2020-03-19得票数 0
回答已采纳
我是VBA的新手，虽然我在很多年前就已经做过相当多的编码工作。
我正在创建一个宏，将csv文件中的一列数据复制到另一个excel电子表格(我已将其标记为wkb1)。csv文件中的数据表示日期和时间，并类似于"09/12/2015 14:19“(例如)。由于它只是一个在Excel中打开的csv文件(在我的宏内)，它没有任何预先指定的格式。
上面的例子应该代表12月9日(而不是9月12日)。我的Windows位置将日期格式设置为DDMMYYYY (即英语而不是美国格式)。
当我手动从csv复制并粘贴(或特殊粘贴)到我的工作电子表格时，它会将数据原样(即文本)复制到工作电子表格中。它不会将数
浏览 2提问于2015-12-10得票数 0
有没有办法将小部件配置从一个页面(或项目)导入/导出到另一个页面(或项目)？ 我在考虑将小部件配置导出到JSON，然后将此配置导入到另一个相同类型的“空”小部件。 另一种方法是将小部件保存为全局小部件(Elementor方法)。 这是许多创建者必须面对的问题:有没有相应的工作流程？
浏览 16提问于2021-08-27得票数 1
1回答
我正在使用VBA在excel中创建一个动态的工作表目录，我想动态地调整它的大小。如果添加了新数据，它确实会调整大小，但如果删除数据，则不会调整大小。这是我的代码：
Sub update_directory()
Application.ScreenUpdating = False
Range("Directory").Select
Selection.ClearContents
Range("AA1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(SheetNames)"
Sheet1.Calculat
浏览 8提问于2022-07-17得票数 0
回答已采纳
我有一个菜鸟的问题，但似乎无法弄清楚。
我有一个OLEDB连接，我告诉它在例如单元格B1中输入数据。
但B1有前一个月的数据和另一个标签链接到它，并收集数据。当我将OLEDB表放在B1中启动时，旧的单元格会移动到列X1。因此，OLEDB连接数据/表星在B1和以前的数据转移到X1。
我希望它可以覆盖B1，这样我就可以保留指向数据选项卡的链接，而不是重新链接所有内容。
我使用的是数据->从Ohter源导入->数据连接向导。
没有VBA代码，只是使用向导进行简单连接
谢谢
布赖恩
浏览 3提问于2015-10-25得票数 0
回答已采纳
2回答
我把整个表格从一个excel文档复制到另一个excel文档。那张纸上的图表也被复制了。
但是，图表中的数据引用的是其他excel文档，而不是当前工作表。
这意味着链接看起来就像
'C:\LokaleBilder\[P3-20x]Tabelle1'!$B$3:$B$403
而不是
'20x-(Kreuz)'!$B$3:$B$403
请注意，工作表名称也已更改。
如果用一些vba代码可以解决这个问题，我想知道如何解决。
编辑：
注意，这些不是超链接，它的链接是做文档的。
我试图通过删除文档字符串来处理它。然而，这一做法失败了：
Dim currSheet As St
浏览 1提问于2013-04-15得票数 0
我有两个SQLite数据库，有相同的数据，但用途不同，我想避免重新插入数据，所以我想知道是否可以将整个表从一个数据库复制到另一个数据库？
浏览 11提问于2010-03-02得票数 159
回答已采纳
我正在使用下面的VBA在特定条件下将行从一个工作表复制到另一个工作表。我现在有了一个新的Excel，我想在其中重用它，但是这一次我想在列C5而不是A5开始粘贴。我知道您可以指定.cells，但这在这里并不像我想象的那么简单。
任何帮助都是非常好的:)
Sub CopyRows()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Set RAW = Worksheets("RAWdata")
Set Closed = Worksheets("RAWclosed")
With RAW
ZeileMax =
浏览 1提问于2018-08-17得票数 1
回答已采纳
我正在寻找一个简单的解决方案，可以将包含一个加载的Power数据表的单个工作表导出到一个新的工作簿中，而不需要底层连接和查询。
我认为微软改变了Excel2019中有关Power (ListObject)的行为以及它们在副本之间保存连接的方式。以前(Excel 2016)在创建包含该表的表或工作表副本时，只会保留值和格式，现在Excel还会重复刷新该表所需的所有查询和连接。我不想那样-我不想向我发送数据的任何人公开Power查询代码。
以前，我可以使用以下简单代码：
Dim SourceWb As Workbook
Dim SourceSh As Worksheet
Dim TargetWb
浏览 1提问于2019-07-04得票数 3
我是VBA新手，需要一些帮助来实现一个工具：
本质上，我想为我的活动工作表创建一个自动复制范围D9:L18并将其粘贴到Q9:Y18的CommandButton。此外，一旦我按下按钮，我希望对除两个特定工作表之外的所有其他工作表(大约40个)重复此过程。
你能帮我个忙吗？
非常感谢您的帮助--非常感谢。
编辑：
由于某种原因，出现了一个错误@ Sheet.Range("D12:L18").Select --也许你可以帮助我？谢谢。
Private Sub CommandButton1_Click()
Dim Sheet As Worksheet
For Each
浏览 0提问于2013-05-22得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
