VBA 跨工作簿按条件查找并提取数据

Question

如题所述

Answer 1

'跨工作表操作：将shet2中 与shet1中产品编号相同的，第4列的数据，写入表1第4列

Sub aa()
Dim x As Integer ' 行数控制循环
Dim y As Integer
Dim s1 As String
Dim s2 As String

For x = 1 To 10 Step 1 'shet1有多少行就将10 改为多少
Worksheets("Sheet1").Activate
s1 = Range(Cells(x, 3), Cells(x, 3)).Value'关键字在第几列就改为相应
Worksheets("Sheet2").Activate '在shet2里面进行查找找到后结果放到s2中
For y = 1 To 10 Step 1 'shet2有多少行就将10 改为多少
If s1 = Range(Cells(y, 3), Cells(y, 3)).Value Then'关键字第几列就改为相应
s2 = Range(Cells(y, 4), Cells(y, 4)).Value'需要果在第几列就改为相应
y = 10 '找到后跳出查找循环
End If
Next
Worksheets("Sheet1").Activate
Range(Cells(x, 4), Cells(x, 4)).Value = s2 '找回的数据放到表1的第四列
Next
End Sub
'找回的数据放到表1的第四列
'跨工作薄操作就把前缀修改下。Worksheets("Sheet1").Activate若怕麻烦就把另外一个表也拷贝到一个工作薄中