基于两列中的两个条件复制列和行

Question

这里有一个难以理解的代码，我可以搜索两个标准，但我不能为我的生活改变这一点，以允许我在两个不同的列中搜索两个标准。即H和AC。

那么两者的符合这些行复制到一个新的工作表

Dim a As String, b As String 
a = InputBox("Enter first criteria") 
b = InputBox("enter second criteria") 
ActiveSheet.UsedRange.AutoFilter Field:=3, Criteria1:=a 
ActiveSheet.UsedRange.AutoFilter Field:=5, Criteria1:=b 
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy 
Workbooks.Add 
Range("A2").PasteSpecial 
x = Cells(Rows.Count, 8).End(xlUp).Row 
Range("H" & x + 1).Formula = "=sum(H2:H" & x & ")" 
Range("H" & x + 1).AutoFill Destination:=Range("H" & x + 1 & ":BC" & x + 1), Type:=xlFillDefault 
ActiveWorkbook.SaveAs Filename:="Data for " & a & " and " & b & ".xls" 
ActiveWorkbook.Close True 
ActiveSheet.UsedRange.AutoFilter 
MsgBox "Complete" & Chr(10) & " check the file Data for " & a & " and " & b 
End Sub 

Answer 1

虽然我不知道我理解你的问题，你可以通过两个自动筛选语句改变字段引用的列H和交流滤波器分别为Field:=8和Field:=29。