大于VBA中的“自动过滤条件"

本文介绍了大于VBA中的“自动过滤条件"的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

如何在此代码中使用比更大的代码?

How do I use greater than in this code?

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

推荐答案

Criteria1参数需要 String ，因此需要将其连接起来:

Criteria1 argument expects String so you need to concatenate it like:

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

这篇关于大于VBA中的“自动过滤条件"的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！