VBA使用AutoFilter多值筛选时单行代码长度超限如何解决

你可以通过拆分长数组定义、一次性传入筛选条件的方式解决问题，具体实现方案如下： #

方案1：直接拆分数组定义（适合固定筛选条件的场景） #

利用VBA的行连续标记 _ 拆分超长的数组定义代码，不受单行长度限制，再将完整的条件数组传入AutoFilter即可，不会出现条件覆盖问题：

' 定义存储所有筛选课程名的数组，用下划线拆分多行编写
Dim filterCourses As Variant
filterCourses = Array( _
    "Seguridad de Manguera de Agua", _
    "Seguridad de Manguera de Aire", _
    "Rastreabilidad y retiro de producto", _
    "Acciones correctivas y preventivas", _
    "Identificación de producto", _
    "Control y llenado de registros", _
    "Limpieza", _
    "剩下的51个课程名按上面的格式依次添加即可" _
)

' 一次性调用筛选，传入完整条件数组
Data_sh.UsedRange.AutoFilter Field:=9, Criteria1:=filterCourses, Operator:=xlFilterValues

注意事项： #

• 除数组最后一个元素外，每个元素末尾都要加空格+下划线，作为VBA的代码换行标记
• 不要分多次调用AutoFilter，每次调用都会重置当前列的筛选条件，只会保留最后一次的筛选结果

方案2：从工作表读取筛选名单（适合需要频繁调整筛选条件的场景） #

如果后续需要经常修改要筛选的课程名单，可以把58个课程名提前写到空白工作表的某一列，直接读取该区域生成数组，无需修改代码：

' 假设筛选名单存放在Sheet2工作表的A1:A58区域
Dim filterCourses As Variant
filterCourses = Application.Transpose(Sheet2.Range("A1:A58").Value)

' 执行筛选
Data_sh.UsedRange.AutoFilter Field:=9, Criteria1:=filterCourses, Operator:=xlFilterValues

提示：注意修正原代码中的课程名乱码问题，例如Identificación de producto为编码异常，替换为正确的名称后才能正常匹配筛选结果。

内容的提问来源于stack exchange，提问作者Bruno Tavares