VBA代码类型不匹配错误求助：修复删除指定列全为0行功能

嘿，我来帮你搞定这个类型不匹配的问题！你遇到的报错，主要是那行Application.Index代码里的几个细节没处理好，咱们一步步拆解修复。

先分析错误根源 #

你写的sn = Application.Index(sn, Application.Transpose(Split(Mid(c00, 2), "|")), [transpose(row(1:8))])这行，有三个明显的问题：

1. 列数参数完全错误：你要处理的是第4-9列（共6列），但这里写的row(1:8)是取前8列，和你的需求不匹配，甚至会超出原数据的列范围，直接触发类型不匹配。
2. 字符串数组未转数值：Split拆分出来的行号是字符串类型，但Application.Index的行索引要求是数值型数组，直接传字符串数组肯定会报错。
3. 空值场景未处理：如果所有行的D-I列都是0，c00会是空字符串，拆分后得到的数组是无效的，传入Index也会触发错误。

另外，你把c00声明为Variant是没问题的，但它的作用是记录要保留的行号，格式应该是类似|1|3|5|这样的拼接字符串。

修复后的完整代码 #

我先给你修正后的代码，再逐个解释关键点：

Sub DeleteZeroRowsInDI()
    Dim ws As Worksheet
    Dim sn As Variant, c00 As Variant
    Dim i As Long, j As Long
    Dim rowStrArr() As String, rowNumArr() As Long
    
    ' 替换成你的目标工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取数据区域（包含表头的话注意后续处理）
    sn = ws.UsedRange.Value
    
    ' 收集需要保留的行号（D-I列不全为0的行）
    c00 = ""
    For i = 1 To UBound(sn, 1)
        Dim keepRow As Boolean
        keepRow = False
        ' 遍历第4-9列（对应数组的4到9索引）
        For j = 4 To 9
            ' 同时处理空单元格（空≠0）
            If Not IsEmpty(sn(i, j)) And sn(i, j) <> 0 Then
                keepRow = True
                Exit For
            End If
        Next j
        ' 把要保留的行号拼接到c00
        If keepRow Then c00 = c00 & "|" & i
    Next i
    
    ' 处理要保留的行
    If c00 <> "" Then
        ' 拆分字符串得到行号数组（字符串类型）
        rowStrArr = Split(Mid(c00, 2), "|")
        ' 转成数值型数组，适配Index的要求
        ReDim rowNumArr(LBound(rowStrArr) To UBound(rowStrArr))
        For i = LBound(rowStrArr) To UBound(rowStrArr)
            rowNumArr(i) = CLng(rowStrArr(i))
        Next i
        
        ' 修正列参数：保留原数据的所有列，用UBound(sn,2)动态获取列数
        sn = Application.Index(sn, Application.Transpose(rowNumArr), _
            Application.Transpose(Row(1 To UBound(sn, 2))))
    Else
        ' 如果所有行都要删除，清空数组
        Erase sn
    End If
    
    ' 将处理后的数据写回工作表（先清空原数据）
    ws.UsedRange.Clear
    If Not IsEmpty(sn) Then
        ws.Range("A1").Resize(UBound(sn, 1), UBound(sn, 2)) = sn
    End If
End Sub

关键修复点说明 #

1. 列参数动态化：用Row(1 To UBound(sn, 2))代替固定的row(1:8)，自动适配原数据的列数，避免硬编码出错。
2. 字符串转数值数组：新增了把拆分后的字符串行号转成数值数组的步骤，完美匹配Application.Index的参数类型要求。
3. 空值判断：遍历列的时候加上Not IsEmpty(sn(i,j))，避免把空单元格当成0处理。
4. 空场景处理：判断c00是否为空，防止没有要保留的行时触发错误。

更简单的替代方案（推荐） #

其实用Excel的自动筛选功能来实现这个需求，代码更简洁，效率更高，还不容易出错：

Sub DeleteZeroRowsWithFilter()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    With ws.UsedRange
        ' 给D-I列设置筛选条件：全部为0
        .AutoFilter Field:=4, Criteria1:=0
        .AutoFilter Field:=5, Criteria1:=0
        .AutoFilter Field:=6, Criteria1:=0
        .AutoFilter Field:=7, Criteria1:=0
        .AutoFilter Field:=8, Criteria1:=0
        .AutoFilter Field:=9, Criteria1:=0
        
        ' 删除筛选出的可见行（跳过表头，所以用Offset(1)）
        On Error Resume Next ' 防止没有符合条件的行时报错
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        
        ' 取消筛选
        .AutoFilter
    End With
End Sub

这个方法不需要处理数组和类型转换，直接利用Excel内置功能，新手也能轻松维护。

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