VBA执行错误1004

Question

我试图将一个值与三个不同列中的三个值进行比较(第一个值必须与所有其他值进行比较).我使用了这段代码,我在if行得到执行错误1004.

Option Explicit

Sub tests_selection()
    Dim SrcWs As Worksheet
    Set SrcWs = Worksheets("Feuil1")
    Dim SrcWs2 As Worksheet
    Set SrcWs2 = Worksheets("Feuil2")

    Dim ResultWs As Worksheet
    Set ResultWs = Worksheets("result")

    Dim rRow As Long
    rRow = 2

    Dim j As Long


      Dim iCell As Range
    For Each iCell In SrcWs.Range("A1:A4700")

            For j = 0 To 4700


         If iCell.Value = SrcWs.Cells(j, 2).Value And iCell.Value = SrcWs.Cells(j, 3) And iCell.Value = SrcWs.Cells(j, 4) Then

        ResultWs.Cells(rRow, 1).Value = SrcWs.Cells(iCell.Row, 1).Value
        ResultWs.Cells(rRow, 2).Value = SrcWs.Cells(iCell.Row, 2).Value
        ResultWs.Cells(rRow, 1).Value = SrcWs.Cells(iCell.Row, 4).Value
        ResultWs.Cells(rRow, 2).Value = SrcWs.Cells(iCell.Row, 5).Value

            rRow = rRow + 1
        End If
            Next j
        Next iCell

End Sub

Answer 1

Cells(j,2)会在什么时候给出错误j=0.没有第0行

尝试:

 For j = 1 to 4700