请问高手，如何在excel表里用宏实现下面的功能。

2025-05-06 02:57:12

推荐回答（1个）

回答1：

代码复制到第2图，假设表名为 Sheet2
Sub 查询()
Range("C4:E500") = ""
Dim i%
Application.ScreenUpdating = False
For i = 5 To Sheets(1).Range("B65536").End(xlUp).Row
Sheets(1).Select
If Sheets(1).Cells(i, "b") = [C2] Then
N = N + 1
Sheets(2).Cells(N + 3, "c") = Sheets(1).Cells(i, "b")
Sheets(2).Cells(N + 3, "D") = Sheets(1).Cells(i, "C")
Sheets(2).Cells(N + 3, "E") = Sheets(1).Cells(i, "D")
Sheets(2).Select

End If

Next
Application.ScreenUpdating = True
End Sub
第1图表名为 Sheet1
如果数据多，对速度有要求，就用VBA数组