Excel VBA宏直接运行正常，添加按钮触发时出现Run time error 1004（AutoFilter Method of Range Class Failed）的问题求助

嘿，这个场景我太熟悉了！直接在VBA编辑器里跑宏一切正常，绑到工作表按钮上就弹出1004错误，本质上大概率是工作表激活状态导致的范围识别问题，再加上你代码里还有个小字符串错误，刚好凑一起触发了报错。下面给你拆解原因和解决办法：

为啥会报错？ #

当你直接在编辑器运行宏时，Data工作表大概率是处于激活状态的，所以UsedRange能正确指向它的已用区域。但通过按钮触发时，按钮所在的工作表会自动成为当前激活表，这时候Excel对非激活表的UsedRange识别偶尔会抽风，导致AutoFilter找不到正确的操作范围。另外，你代码里的筛选数组有个小bug："Seguridad de Manguera de Aire""Extintores: Introducción"这里多了一个双引号，应该是两个独立的字符串，这个小错误在直接运行时没触发问题，但按钮触发时可能因为解析异常放大了错误。

靠谱的修复方案 #

方案1：明确指定数据范围（强推！） #

别用UsedRange了，这家伙经常会包含空行空列，导致范围不准确。换成CurrentRegion来获取从A1开始的连续数据块，这样不管哪个工作表激活，都能精准定位到Data表的数据区域。同时修正那个多出来的双引号：

修改后的完整代码：

Sub VerificacionCursos()
 Dim Data_sh As Worksheet
 Dim Filter_Criteria_sh As Worksheet
 Dim Output_sh As Worksheet
 Dim dataRange As Range
 
 Set Data_sh = ThisWorkbook.Sheets("Data")
 Set Filter_Criteria_sh = ThisWorkbook.Sheets("Filter_Criteria")
 Set Output_sh = ThisWorkbook.Sheets("Output")
 
 ' 先关闭现有筛选，避免冲突
 Data_sh.AutoFilterMode = False
 
 ' 获取准确的连续数据区域（从A1开始的所有相连单元格）
 Set dataRange = Data_sh.Range("A1").CurrentRegion
 
 ' 对第9列应用筛选，修正了字符串的双引号错误
 dataRange.AutoFilter Field:=9, Criteria1:=Array( _
 "Seguridad de Manguera de Agua", "Seguridad de Manguera de Aire", "Extintores: Introducción", _
 "Procedimientos de bloqueo y etiquetado", "Espacios Confinados: Conceptos Básicos", _
 "E-Metrics y Sustentabilidad", "Polipastos y eslingas", "Equipo de protección personal (PPE)", _
 "Preparación para emergencias", "Permisos de Trabajo", "APA - Alto, Piensa y Actua", _
 "Manejo de Residuos", "Food Defense", "Prevención y protección contra incendio", _
 "Resguardos de máquinas", "Patógenos sanguÃneos", "Para trabajar seguro con electricidad", _
 "SGA: Introducción", "SGA: Pictogramas y Riesgos", "SGA: Hojas de Datos de Seguridad", _
 "SGA: Etiquetas", "Trabajo en caliente", "Prevención de lesiones de espalda", _
 "Herramientas eléctricas y de mano", "ErgonomÃa", "COVID-19: información general", _
 "Protección Contra CaÃdas", "Tropiezos, Resbalones y CaÃdas", "Espacios Confinados: para los guardas", _
 "GMP del personal de mantenimiento", "QFS Zonas higienicas y codigo de colores", _
 "Salmonela: Control en la fabricación de alimentos", "QFS Eventos Adversos", _
 "Listeria: Comprensión de los peligros para los alimentos", "QFS Banderas y Politica de Calidad 2021", _
 "Estándares de la seguridad de los alimentos: Introducción y SQF", "Para prevenir la contaminación de los alimentos", _
 "HACCP: Descripción general", "QFS Uso de Equipos de Limpiesa", "Limpiar e higienizar: Ambientes secos", _
 "Alérgenos de alimentos: Introducción", "Alérgenos de alimentos: Manejo adecuado", _
 "Control de plagas: pesticidas efectivos", "DMS DE CALIDAD", "QFS Limpieza alergénica", _
 "Higiene Personal: Esenciales", "Lavado de Manos: Técnicas Efectivas", "Defensa básica de las instalaciones", _
 "Cómo evitar enfermedades alimentarias", "Evaluación de Olor de materiales", "QFS Proteccion al producto", _
 "Quejas del consumidor", "Exclusión de material extraño: papel del empleado", _
 "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", "Extintores: Introducción"), Operator:=xlFilterValues
End Sub

方案2：临时激活目标工作表（不推荐，应急用） #

如果不想大改代码，在执行AutoFilter前先激活Data工作表，强制Excel把操作范围指向它：

' 在AutoFilter前加这一行
Data_sh.Activate
Data_sh.UsedRange.AutoFilter 9, Array(...), xlFilterValues

不过这种方法依赖工作表激活状态，后续如果调整按钮位置或者工作表结构，很容易再出问题，还是方案1更稳妥。

额外检查点 #

• 确认按钮绑定的宏是VerificacionCursos，别不小心绑错了其他代码；
• 你的筛选文本里有ó这类乱码，大概率是编码不匹配导致的，如果Excel里的课程名是正确的西班牙语重音，最好修正这些字符串，避免出现筛选不到数据的情况；
• 如果文件是宏禁用状态，按钮触发时可能有隐藏权限问题，但你已经弹出1004，这个概率比较低。

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