VBA 在A表中查询B表的数据

A表

1.png

B表

2.png

代码

Sub kk()
Dim FJX
Sheets("COM").Select
Sheets("COM").Range("b2:e3000").Select
Selection.ClearContents

i = 2
k = 1

Do While Cells(i, 1) <> ""
      Cells(i, 1).Select
      uu = Cells(i, 1)
      Set FJX = Sheets("M").Columns("A").Find(uu, AFTER:=[A1], lookat:=xlWhole)
      If Not FJX Is Nothing Then
          Cells(i, 2) = Sheets("M").Cells(FJX.Row, 2).Value
          Cells(i, 3) = Sheets("M").Cells(FJX.Row, 3).Value
          Cells(i, 4) = Sheets("M").Cells(FJX.Row, 4).Value
          Cells(i, 5) = Sheets("M").Cells(FJX.Row, 5).Value
      End If
      
      i = i + 1
      
      
Loop

MsgBox ("OK")

Range("a1").Select


End Sub

Sub qingl()
 
  Sheets("COM").Select
  Range("b2:e3000").Select
  Selection.ClearContents
  Range("a1").Select
  
End Sub

参考：https://zhuanlan.zhihu.com/p/36420911