大于在VBA中的自动筛选条件

如何使用比这个代码更大的代码？

ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, Criteria1:= _ ">"Range("BJ1").Value, Operator:=xlAnd 

这是完整的代码

 Sheets("New Hire").Select Range("CI1").Select Selection.Copy ChDir "D:\Sales Report" Workbooks.Open Filename:="D:\Sales Report\Global_New_Hire_Report.xlsb" Windows("Global_New_Hire_Report.xlsb").Activate Range("BJ1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Selection.AutoFilter Windows("Global_New_Hire_Report.xlsb").Activate ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, Criteria1:= _ ">"Range("BJ1").Value, Operator:=xlAnd 

Answer 1

Criteria1参数期望string，所以你需要连接它像：

 ActiveSheet.Range("$A$1:$BG$5158").AutoFilter Field:=13, _ Criteria1:=">" & Range("BJ1").Value