Question

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

请问高手，如何在excel表里用宏实现下面的功能。在表2点击“查询”按钮，变把表1符合查询条件的单位统计出来，按序显示。





Answer 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数组

追问

就是数据比较多

追答

Sub 查询()
T = Timer
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
MsgBox Format(Timer - T, "0.000")
End Sub
你先测试下这个代码,看下速度是否快？

追问

我实际有10多个字段

追答

Sub 查询()
T = Timer
Range("C4:E500") = ""
Dim i%
Application.ScreenUpdating = False
For i = 5 To Sheets(1).Range("B65536").End(xlUp).Row
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")
End If
Next
Sheets(2).Select
Application.ScreenUpdating = True
MsgBox Format(Timer - T, "0.000")
End Sub
管你有多少，反正 查找C2里的关键字

追问

好像出了点问题，不能运行

追答

注意你的分表名，好累哦

追问

可以了，谢谢，就是有点慢