Question

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

SHEET1会有这个但可能有数百/几千行：

...一个..... .....乙C ...... d ...... ......ë......˚F...ģ ..H

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

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

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

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

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

SHEET2我希望从第一张纸中得到这个：

...一个..... .....乙C ...... d ...... ......ë......˚F...ģ ..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

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

1 个答案: