excel - 根据两列中的两个条件复制列和行

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

虽然我不确定我是否理解您的问题，但您可以通过将两个 Autofilter 语句中的字段引用分别更改为 和 来过滤列 H 和Field:=8AC Field:=29。