Excel-如果H列为空，则将该行从第1页复制到第2页的下一行

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

SHEET1会有这样的行，但可能会增加数百行/数千行：

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

数据数据数据

数据数据数据

数据数据数据

数据数据数据

数据数据数据

数据数据数据

数据数据数据

数据数据数据

第2张我想从第一张纸上看到这个：

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

数据数据数据

数据数据数据

---

为了做到这一点，我们已经努力了好几天，尝试了多段代码，最后删除了全部代码，来吧。请帮助任何人：）：：）：）：）

这真是太棒了，第一次工作，谢谢。我唯一想做的另一件事是从第15行开始过滤并获取信息。我是否可以对此做一些细微的更改以获得结果。将

wsSrc.Column（“H”）

更改为

wsSrc.Range（“H14:H65000”）

14，以便它将第14行视为标题行，从第15行和下一行获取数据。65000以使用大部分行。如果您的数据超出65000行，请使用较大的数字（不超过最后一行数字）。再次感谢。仍然不能相信我错过了这些答案。一定是生疏了，需要再学习一些东西。非常感谢你的帮助，非常感谢。

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