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

Question

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

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

帮助？！

Answer 1

我知道了！奇迹般有效。我的第一个工作表称为“ALL”，第二个工作表称为“设置”，我在其中检查我的日期范围，以查看我在几天内导入到其余工作表的文件，这些工作表名为“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