excel - 复制粘贴 VBA 代码有空白行

Question

下面的代码搜索、复制找到的数据并将其粘贴到另一个工作表中。但是，在粘贴的工作表中完成此操作后会出现空白。例如:在A1单元格中找到“待复制”，并将整行复制到指定的工作表中。在A4中找到“待复制”，将整行复制到指定的工作表中。但是，粘贴的纸张中 A1 和 A4 之间有两个空白行。感谢您的帮助。

Sub Deleting()
    Application.ScreenUpdating = False
    Dim wsh As Worksheet, i As Long, Endr As Long, x1 As Worksheet, p As Long
    Set wsh = ActiveSheet
    Worksheets.Add(Before:=Worksheets("Original Sheet")).Name = "Skipped"
    Set x1 = Worksheets("Skipped")
    Worksheets("ABC").Activate
    i = 2
    Endr = wsh.Range("A" & wsh.Rows.Count).End(xlUp).Row
    While i <= Endr
        If Cells(i, "A") = "To Be Copied" Then
            wsh.Rows(i).Copy
            x1.Rows(i).PasteSpecial
            p = p + 1
            Endr = Endr + 1
        End If
        i = i + 1
    Wend
End Sub

Answer 1

您需要两个计数器:i 表示源行，j 表示目标行。仅在复制行时递增 j。