簡單的話可以用vlookup操作
可是每欄都要寫公式
VBA作法參考如下
Private Sub CommandButton1_Click()
Dim i As Integer
Dim CopyRow As Object
'Range("A65536").End(xlUp).Row -> 取最後一個位置
For i = 1 To Workbooks("範例1.xls").Worksheets(1).Range("A65536").End(xlUp).Row
'找範例2
Set CopyRow = Workbooks("範例2.xls").Worksheets(1).Range("A:A").Find(Workbooks("範例1.xls").Worksheets(1).Range("A" & i))
'如果FIND有找到
If Not CopyRow Is Nothing Then
'複製到範例1
Workbooks("範例2.xls").Worksheets(1).Range("B" & CopyRow.Row & ":F" & CopyRow.Row).Copy Workbooks("範例1.xls").Worksheets(1).Cells(i, 2)
End If
Next
End Sub
範例檔案如下方連結(請開啟兩個檔案)
https://cowtransfer.com/s/b13fd5fde6d54a