Vba 将多张图纸合并为两张主图纸

我有一份针对不同业务线的15页工作簿

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

我希望将工作表1、4、7、10和13合并到一个主工作表中，该主工作表只添加非空的行

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

---

我相信使用VBA可以做到这一点，但我不知道如何做到这一点。

以下只是您问题的一部分

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

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

Sub-selectnonblankandpastenewsheet（）
单元格。选择
自动筛选
有选择
.自动筛选字段：=1，标准1:=“”
.SpecialCells（xlCellTypeVisible）。复制
以
Sheets.Add After:=ActiveSheet
活动表。粘贴
端接头

问得好。我遗漏了我使用Excel for Mac如果您下载了for Mac Excel，您可以在工作簿上运行SQL查询，特别是带有

WHERE

子句的联合查询，以过滤掉空行。