excel加条件的高级筛选VBA

没图表，那个宏程序要根据你所在列和写筛选语言的。 示例： Dim i, a, j, x As Integer Dim w As String Sheets("rework").Select Cells.Clear Sheets("sun").Select x = InputBox("请输入你想查询的工号", "查询表格") For i = 2 To 8 If Cells(1, 1) = "" Then i = i + 1 End If w = Cells(i, 238).Value On Error Resume Next Sheets(w).Select Range("k1").Select Selection.AutoFilter Field:=11, Criteria1:="=" & x, Operator:=xlAnd Range("A2:o8000").Select Selection.Copy Sheets("rework").Select a = Range("A65536").End(xlUp).Row + 1 Cells(a, 1).Select ActiveSheet.Paste