Excel中的难题,高手请进!

2025年02月23日 13:52
有2个网友回答
网友(1):

如果表1中的数据在A1:A4,有10行。表2中的数据在A1:A7,有50行。那么如下代码能把找到的内容放入表3的A1:A4。
Public Sub find()
For i = 1 To 10
For j = 1 To 50
If sheet1.Cells(i, 1) = sheet2.Cells(j, 7) and sheet1.Cells(i, 2) = sheet2.Cells(j, 3) and sheet1.Cells(i, 3) = sheet2.Cells(j, 4) and sheet1.Cells(i, 4) = sheet2.Cells(j, 5) Then
Sheet1.Rows(i).Copy Sheet3.Rows(i)
End If
Next j
Next i

End Sub

具体根据你的实际修改即可。
按ALT+F11,打开VBA编辑器,插入一个模块,把代码放里面,把光标停在代码中间,按F5运行。

网友(2):

好难的题,一个lookup搞定。。