Question

我目前有一个工作簿设置为在Excel中打开多个txt文件，过滤所有数据并仅导入我需要的数据。每个导入进入一个不同的excel表“1”，“2”，“3”，....到“31”（天）。

所有工作表都具有相同的列数但行数不同。我需要做的是将所有工作表合并到同一工作簿中的“全部”工作表中。

帮助？！

Answer 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

将工作表“1”和“31”合并到同一工作簿中的“ALL”工作表中

1 个答案: