shett1的数据是sheet2中的部分，sheet2后面的列还跟有数据，如何对比两个表格的数据，相同抽出到sheet3

Question

例如：
sheet1
1列 2列
EH-MA5300-B-01 0/0/48
EH-MA5300-B-01 1/0/19
EH-MA5300-B-01 15/0/20

sheet2
1列 2列 3列 4列
EH-MA5300-B-01 0/0/0 5048821 46521
EH-MA5300-B-01 0/0/1 2385129 4652311
EH-MA5300-B-01 0/0/2 52512 453123
数据从sheet2中抽

Answer 1

录制一个空宏，然后将以下代码复制进去，运行即可
注意：三个sheet保持名称为：sheet1、sheet2、sheet3
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Application.WorksheetFunction.CountA(Worksheets("sheet1").Range("A:A"))
b = Application.WorksheetFunction.CountA(Worksheets("sheet2").Range("A:A"))
c = Application.WorksheetFunction.CountA(Worksheets("sheet2").Rows("1:1"))
For i = 1 To a
For j = 1 To b
If Worksheets("sheet1").Cells(i, 1) = Worksheets("sheet2").Cells(j, 1) Then
For k = 1 To c
Worksheets("sheet3").Cells(i, k) = Worksheets("sheet2").Cells(i, k)
Next
End If
Next
Next