从sheet1到sheet2搜索并粘贴列

我试图从sheet1搜索，复制并粘贴到sheet2 . 首先，我需要在sheet2中搜索列的值，然后匹配sheet1中的值，然后复制然后将整行粘贴到sheet2 . 例如，我在下面有这些数据

Sheet2中

A   B    C         D    E   F
        1200-24                 
        1201-24                 
        120-24                  
        1218-24

工作表Sheet1

A  B   C           D     E      F   
2 345  1200-24     ABD   1er    3.4     
3 456  1201-24     CDF   de3    6.6     
7 780  120-24      EFg   d45    9.6 
9 657  1218-24     VGA   9ml    8.7

因此，我希望在工作表1上搜索来自工作表2上的c1的所有数据，如果匹配则粘贴到第2行第2页，第2页上的c2将在工作表1上搜索，如果匹配则粘贴到第3行第2页，等等 .

我从这个网站找到了这个代码：

Sub SearchForString()

Dim LCopyToRow As Integer


On Error GoTo Err_Execute


'Start copying data to row 2 in Sheet2 (row counter variable)
LCopyToRow = 2

Dim sheetTarget As String: sheetTarget = "sheet2"
Dim sheetToSearch As String: sheetToSearch = "sheet1"
Dim targetValue As String: targetValue = Sheets(sheetTarget).Range("C2").Value  'Value in sheet2!A1 to be searched in sheet1
Dim columnToSearch As String: columnToSearch = "C"
Dim iniRowToSearch As Integer: iniRowToSearch = 2
Dim LSearchRow As Long 'As far as it is not clear the number of rows you will be considering, better relying on the long type
Dim maxRowToSearch As Long: maxRowToSearch = 2000 'There are lots of rows, so better setting a max. limit

If (Not IsEmpty(targetValue)) Then
    For LSearchRow = iniRowToSearch To Sheets(sheetToSearch).Rows.Count

        'If value in the current row (in columnToSearch in sheetToSearch) equals targetValue, copy entire row to LCopyToRow in sheetTarget
        If Sheets(sheetToSearch).Range(columnToSearch & CStr(LSearchRow)).Value = targetValue Then

            'Select row in Sheet1 to copy
            Sheets(sheetToSearch).Rows(LSearchRow).Copy

            'Paste row into Sheet2 in next row
            Sheets(sheetTarget).Rows(LCopyToRow).PasteSpecial Paste:=xlPasteValues

            'Move counter to next row
            LCopyToRow = LCopyToRow + 1
        End If

        If (LSearchRow >= maxRowToSearch) Then
            Exit For
        End If

    Next LSearchRow

    'Position on cell A1
    Application.CutCopyMode = False
    Range("A1").Select

    MsgBox "All matching data has been copied."
End If

Exit Sub

Err_Execute:
MsgBox "An error occurred."

End Sub

但它不会让我从sheet2上的c2移动到c3，而且代码LCopyToRow = LCopyToRow 1，而不是移动到sheet2上的下一行 . 非常感谢您的帮助 . 谢谢

编辑：我更改了Dim targetValue As String：targetValue = Sheets（sheetTarget）.Range（“C2”） . Value ---- >>它是范围（“A2”） . 谢谢