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

Question

I have a workbook with 15 sheets for different business lines.

This workbook is a template with multiple empty rows on each sheet.

I would like to consolidate sheets 1, 4, 7, 10, and 13 into a master sheet that adds only rows that are not empty.

In addition, I would like to consolidate sheets 2, 5, 8, 11, and 14 into a master sheet that adds only rows that are not empty.

I believe this can be done with VBA, but I don't know how to do that.

Answer 1

The following is only a part of your issue.

This code use filter to eliminate blanks on the first column and copy the data on a new sheet.

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