Excel-将此行从工作表1复制到工作表2中的下一个可用行，如果H列具有空白卖出

Question

如果H列的单元格为空，则将该单元格所在的整个行复制到新的工作表上到下一个可用行，这些行可以有任意数量的行，因此希望此行可以复制到每一行。

SHEET1将具有此行，但可能有成百上千的行：

... A ..... B ..... C ... D ... E ... F ... G ..... H

数据数据数据数据数据数据数据

数据数据数据数据数据数据数据

数据数据数据数据数据数据

数据数据数据数据数据数据数据

数据数据数据数据数据数据数据

数据数据数据数据数据数据

数据数据数据数据数据数据数据

数据数据数据数据数据数据数据

SHEET2我想从第一张纸上得到这个：

... A ..... B ..... C ... D ... E ... F ... G ..... H

数据数据数据数据数据数据

数据数据数据数据数据数据

为了解决这个问题，经过了数天的努力，并尝试了多段代码，最后才删除了全部代码，然后在这里进行介绍。 请帮助任何人:) :) :) :) :)

Answer 1

Sub tgr()

    Dim wsSrc As Worksheet  'Variable for Source data worksheet
    Dim wsDst As Worksheet  'Variable for Destination data worksheet

    Set wsSrc = Sheets("Sheet1")
    Set wsDst = Sheets("Sheet2")

    With Intersect(wsSrc.UsedRange, wsSrc.Columns("H"))
        .AutoFilter 1, "="  'Filter for blanks in column H

        'Copy resulting rows to the destination worksheet
        .Offset(1).EntireRow.Copy wsDst.Cells(Rows.Count, "A").End(xlUp).Offset(1)

        .AutoFilter 'Remove the filter
    End With

End Sub