VBA会在完成前停止

Question

我有问题...

我在同一工作簿中的不同工作表上有两个数据集。 两个数据集中的第一列都是标识符。在Sheet1中，我有我的数据集，并希望用Sheet2中的数据（其中也包含我不想使用的数据（行+列））填充它。

我有一个正在工作的VBA，但是它在完成之前就停止了。 例如。我在Sheet2中有1598行，但是在567行之后它已经停止工作。

Sub Test()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

    Set Source = ActiveWorkbook.Worksheets("Sheet2")
    Set Target = ActiveWorkbook.Worksheets("Sheet1")

    j = 2    
    For Each c In Source.Range("A2", Source.Range("A" & Source.Cells(Source.Rows.Count, "A").End(xlUp).Row))
        If c = Target.Cells(j, 1).Value Then
           Source.Range("D" & c.Row & ":AS" & c.Row).Copy Target.Cells(j, 26) 
           j = j + 1
        End If
    Next c
    MsgBox "Done"
End Sub

有人可以帮我看看代码是否明显存在问题？我已经在较小的数据集上进行了尝试，然后完美运行。 如果需要更多信息或您还有其他提示，请询问/告诉：D

谢谢！