VBA数组筛选表格删行触发Run-time error '1004'问题求助

看了你的问题描述和代码片段，这几个1004错误主要是代码里的语法细节和操作逻辑问题导致的，我来逐一拆解并给出修正方案：

1. Range引用的语法错误 #

你原来的代码里这两行的Range引用写法完全错误：

ActiveSheet.Range(Cells(1, 1).Cells(29, LastRow)).AutoFilter ...
ActiveSheet.Range(Cells(1, 1).Cells(29, 9999)).AutoFilter ...

Cells(1,1).Cells(29, LastRow)这种写法是在A1单元格的范围内再次引用单元格，完全不是你要的“从A1到第29列最后一行”的区域，正确的写法应该用逗号分隔两个单元格来定义起止范围，比如Range(Cells(1, 1), Cells(LastRow, 29))。

另外用固定的9999行也不靠谱，动态获取最后一行才是稳妥的做法。

2. 尽量避免使用Select/Selection #

Select和Selection很容易因为当前活动对象的变化触发1004错误，直接操作Range对象会稳定得多，比如删除行的逻辑可以直接定位可见行再操作，不用先选中。

3. 处理筛选后无数据行的边界情况 #

如果筛选后只剩表头可见，直接执行删除操作会报错，所以要先判断是否有可见的数据行再执行删除。

4. 每次循环前先清除现有筛选 #

如果上一次循环的筛选没有清除，叠加筛选会导致异常，所以每次循环开始前要检查并关闭筛选状态。

修正后的完整代码示例 #

Sub GenerateFilteredReports()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim FilterOutArray As Variant
    ' 示例：5组不同的筛选数组，你可以替换成自己的循环生成逻辑
    Dim FilterGroups(1 To 5) As Variant
    FilterGroups(1) = Array("值1", "值2", "值3", "值4") ' 保留第5种值
    FilterGroups(2) = Array("值1", "值2", "值3", "值5") ' 保留第4种值
    FilterGroups(3) = Array("值1", "值2", "值4", "值5") ' 保留第3种值
    FilterGroups(4) = Array("值1", "值3", "值4", "值5") ' 保留第2种值
    FilterGroups(5) = Array("值2", "值3", "值4", "值5") ' 保留第1种值
    
    ' 建议直接指定工作表，避免依赖ActiveSheet
    Set ws = ThisWorkbook.Worksheets("你的数据表名称")
    
    For i = 1 To 5
        FilterOutArray = FilterGroups(i)
        
        ' 先清除上一次的筛选
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
        
        ' 动态获取第29列的最后一行
        LastRow = ws.Cells(ws.Rows.Count, 29).End(xlUp).Row
        
        ' 应用筛选：筛选出不在数组中的值（即保留我们需要的那1种）
        ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, 29)).AutoFilter _
            Field:=29, Criteria1:=FilterOutArray, Operator:=xlFilterValues
        
        ' 捕获可能的无可见行错误
        On Error Resume Next
        Dim targetRows As Range
        ' 定位除表头外的可见数据行
        Set targetRows = ws.Range(ws.Cells(2, 1), ws.Cells(LastRow, 29)).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        
        ' 存在可见行时再执行删除
        If Not targetRows Is Nothing Then
            targetRows.EntireRow.Delete Shift:=xlUp
        End If
        
        ' 这里添加生成报表的逻辑：比如复制工作表、另存为文件等
        ' ...
        
        ' 清除筛选，准备下一次循环
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next i
End Sub

额外提示 #

• 我把ActiveSheet改成了指定工作表的写法，建议你替换成实际的数据表名称，避免因为切换工作表导致的错误。
• 用SpecialCells(xlCellTypeVisible)获取可见行的方式，比End(xlDown)更可靠，哪怕数据中间有空行也能准确选中所有目标行。
• 添加了错误捕获逻辑，避免筛选后无数据行时触发1004错误。

内容的提问来源于stack exchange，提问作者Bartek Nowakowski