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

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

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

1 个答案: