求助，如何实现当粘贴Sheet1的A列指定序号到Sheet2动作发生后，指定序号对应的那...

sdwsy2020

求助，如何实现：当粘贴Sheet1的A列指定序号到Sheet2动作发生后，指定序号对应的那一行数据自动粘贴到Sheet2 ？

例如：在Sheet1复制A列序号2、3、4粘贴到Sheet2 A列，序号2、3、4对应的数据行自动粘贴到Sheet2。谢谢

Grace熊小熊

Sub test()
Dim i As Integer, j As Integer
Dim ar1 As Variant
ar1 = Sheets("Sheet2").[a1048576].End(xlUp).Row
arr1 = Sheets("Sheet2").Range("A1:h" & Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row)
arr2 = Sheets("Sheet1").Range("a2:h" & Sheets("Sheet1").Cells(Rows.Count, "a").End(xlUp).Row)
For i = 1 To UBound(arr1)
For j = 1 To UBound(arr2)

If arr1(i, 1) = arr2(j, 1) Then
   arr1(i, 2) = arr2(j, 2)
   arr1(i, 3) = arr2(j, 3)
   arr1(i, 4) = arr2(j, 4)
   arr1(i, 5) = arr2(j, 5)
   arr1(i, 6) = arr2(j, 6)
   arr1(i, 7) = arr2(j, 7)
   arr1(i, 8) = arr2(j, 8)
   GoTo ar1
   
End If

ar1:
Next

Next
Sheets("Sheet2").Range("A1:h" & Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row) = arr1



End Sub

sdwsy2020

Grace熊小熊 发表于 2020-7-20 14:02
Sub test()
Dim i As Integer, j As Integer
Dim ar1 As Variant

感谢！