将列表框的第一个列号与工作表的第一个列号匹配，并将粘贴编号复制到现有工作表相邻的匹配编号vba excel中

Sub MatchAndCopy()
    Dim lstBox As ListBox
    Dim ws As Worksheet
    Dim pasteRange As Range
    Dim i As Long
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置列表框对象
    Set lstBox = UserForm1.ListBox1
    
    ' 设置复制粘贴的起始位置
    Set pasteRange = ws.Range("B2")
    
    ' 循环遍历列表框中的所有项
    For i = 0 To lstBox.ListCount - 1
        ' 判断列表框中当前项的第一个列号与工作表中第一个列号是否匹配
        If lstBox.List(i, 0) = ws.Cells(1, 1).Value Then
            ' 复制粘贴编号到相邻的匹配编号位置
            ws.Cells(pasteRange.Row, pasteRange.Column).Value = lstBox.List(i, 1)
            Set pasteRange = pasteRange.Offset(1, 0) ' 移动到下一行
        End If
    Next i
End Sub