将多个工作表合并为两个主工作表

Question

我有一张15张不同业务线的工作簿。

此工作簿是每张工作表上有多个空行的模板。

我想将第1，第4，第7，第10和第13张合并到一张只添加非空行的主表格中。

此外，我想将工作表2,5,8,11和14合并到一个主工作表中，该工作表只添加非空行。

我相信这可以通过VBA完成，但我不知道该怎么做。

Answer 1

以下只是您问题的一部分。

此代码使用过滤器消除第一列上的空白并将数据复制到新工作表上。

Sub SelectNonBlankAndPasteonNewSheet()

    Cells.Select
    Selection.AutoFilter

    With Selection

        .AutoFilter Field:=1, Criteria1:="<>"
        .SpecialCells(xlCellTypeVisible).Copy

     End With

    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub