Excel VBA Makro 比较和复制

Question

如果两个工作表中都存在 ServerID，我需要将工作表中的一行复制到第三个工作表中

Sub XDDXH()

Dim i As Integer
Dim z As Integer
Dim j As Integer

For i = 2 To 3318

    For z = 8 To 731

    If Worksheets("Sheet1").Range(i, 1).Value = Worksheets("Sheet2").Range(z, 8).Value Then
        Worksheets("Sheet1").Range("i:i").Copy Destination:=Worksheets("Sheet3").Range("j:j")
        j = j + 1
    End If

    Next z

Next i

End Sub

使用此代码，我得到运行时错误 1004。
这是我第一次使用 VBA。

Answer 1

这可以用 CountIf 简化为一个循环。 (未经测试，但我想我得到了一切)。您也可以使用 Match如果你愿意的话。

Sub XDDXH()
    Dim lookInRng as Range
    Set lookInRng = Worksheets("Sheet2").Range("H8:H731")

    Dim sourceRng as Range
    Set sourceRng = Worksheets("Sheet1").Range("A2:A3318")

    Dim rng as Range
    For Each rng in sourceRng
       If Application.CountIf(lookInRng, rng.Value) > 0 Then
           Dim j as Long
           j = j + 1
           rng.EntireRow.Copy Destination:=Worksheets("Sheet3").Range("A" & j)
       End If
    Next rng
End Sub