VBA实现EXCEL多表格多条件查询

设置窗体相关属性

输入代码 Private Sub CommandButton1_Click() Dim c As Range Dim c1, n, i As Integer n = 0 For i = 1 To Workbooks.Count For Each c In Sheets(i).UsedRange If c.Value >= 150 And c.Value <= 160 Then c1 = c1 + c.Value n = n + 1 End If ‘更多条件…… Next Next

TextBox1.Text = n TextBox2.Text = c1 End Sub
按 F5 运行 运行效果

注意： 设置宏安全性，否则可能无法运行 工具——宏——安全性