EXCEL-VBA-在3张纸之间复制粘贴

Question

我正在尝试在三个不同的表格之间复制/粘贴信息。 前两个我只想将信息与If进行比较，如果满足条件，则从工作表n2复制所有行到第三工作表。 我的问题是代码仅找到第一个值并停止。 这是代码。

Sub fallidas2()

Dim iLastRow As Long
    Dim I As Long
    Dim l As Long
    Dim erow As Long

    erow = Sheets("Failed_Trades").Range("A" & Rows.Count).End(xlUp).Row + 1

    Workbooks("modelo titulos UK").Worksheets("xlsConsultaConciliacion").Select

    iLastRow = Worksheets("xlsConsultaConciliacion").Cells(Rows.Count, "C").End(xlUp).Row
    iLastRow2 = Worksheets("Fallidas").Cells(Rows.Count, "C").End(xlUp).Row
    For I = 3 To iLastRow
      For l = 2 To iLastRow2
        If Sheets("xlsConsultaConciliacion").Cells(I, 1) = Sheets("Fallidas").Cells(l, 2) Then
          Worksheets("Fallidas").Rows(I).EntireRow.Copy _
                    Destination:=Sheets("Failed_Trades").Range("A" & erow)

        End If
      Next l
    Next I

End Sub

Answer 1

您需要在If语句中增加erow。 我还在其中包括一个Exit For语句，以便在找到第一个匹配项后它不会继续搜索第二个工作表。 但是，也许您希望它找到其他匹配项并在第三张纸上重复填充相同的信息？

    If Sheets("xlsConsultaConciliacion").Cells(i, 1) = Sheets("Fallidas").Cells(l, 2) Then
        Worksheets("Fallidas").Rows(i).EntireRow.Copy Destination:=Sheets("Failed_Trades").Range("A" & erow) 
        erow = erow + 1
        Exit For
    End If