将工作表“1”到“31”组合成同一工作簿中的“所有”工作表
我目前有一个工作簿，可以在excel中打开多个txt文件，过滤所有数据，只从中导入我需要的内容。每次导入都会进入不同的excel表“1”、“2”、“3”……到“31”（天）。
所有工作表具有相同的列数，但行数不同。我需要做的是将所有工作表合并到同一工作簿中的“ALL”工作表中。
帮助？！
共有1个答案
我拿到了。很管用。我的第一个工作表叫做“所有”，第二个工作表叫做“设置”，在这里我检查我的文件的日期范围，我把这些文件导入到剩下的工作表中，日期范围是从“1”到“31”。使用此宏，第三个工作表(即工作表“1”)开始合并，直到工作簿中的最后一个工作表。它复制除第一行以外的所有内容，第一行有列标题。
Dim J As Integer
On Error Resume Next
For J = 3 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A1000000").End(xlUp)(2)
Next
Sheets("ALL").Select
-
我使用这段代码将工作簿中的每一张工作表复制到一个新的工作簿中，它工作得很好，但它颠倒了工作表的顺序，是否有任何办法阻止它这样做？ 我正在复制所有的工作表，这样我就可以将它保存为不同的文件扩展名，这是我发现唯一有效的方法。
-
我有一个Excel工作簿，其中包含36个不同的工作表，我每两周收到一次，工作表在所有标签上都有共同的标题，并且每个标签上都有不同的唯一标题，但每条记录都有一个唯一的ID，可以有多个记录。 我要做的是从所有的工作表中提取唯一的id，然后将每个工作表中的数据提取到一个工作表中，其中包含所有的公共标题和唯一标题。 我正在考虑使用下面帖子中的代码将其导入Access。连接表并将其导出回Excel中的一个工
-
试图从当前工作簿“Create Report.xlsm”中复制工作表名称“Headings Explantions”，该工作簿打开到我要求打开的工作簿中，我得到了下标超出范围的错误
-
所以我有 1500 个 Excel 工作簿，每个工作簿都有 10 张结构完全相同的工作表。我尝试将多个Excel工作簿合并到一个文件中，并使用以下代码成功： 谢谢，努尔贝克
-
2,3和6-12被跳过。下面是我的代码： 我认为这个问题与行“wb1.sheets(1).Range（”a“&Range（”a1“）.end（xlDown）.row+1）”有关，但我不知道如何解决这个问题。有什么建议吗？谢谢！
-
这里是VBA新手。 谢谢你的教育！