VBA数组选择对应单元格触发Run-time error '13'类型不匹配问题求助

错误原因 #

报错行的核心问题是参数类型不匹配：
你在第二个.Cells调用后多添加了.Column，导致传给Range的两个参数中，第一个是Range对象（.Cells(1, HeaderArray(2).Column)），第二个是数字类型的列号（.Cells(10, HeaderArray(5)).Column），而Range方法要求两个参数类型一致（要么都是单元格对象，要么都是地址字符串/行列号组合），因此触发Type Mismatch错误。

修复后的代码 #

Sub ArrayHeaderSelector()
    With ThisWorkbook.Sheets("Sheet1")
        
        ' 显式声明所有变量，避免隐式类型错误
        Dim LastCol As Long
        Dim HeaderArray() As Range
        Dim i As Long
        
        ' 获取表头最后一列的列号
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        
        ' 初始化Range类型数组
        ReDim HeaderArray(1 To LastCol)

        ' 将表头单元格存入数组
        For i = 1 To LastCol
            Set HeaderArray(i) = .Cells(1, i)
        Next i

        ' 修复：移除第二个.Cells后多余的.Column，保证两个参数都是单元格对象
        .Range(.Cells(1, HeaderArray(2).Column), .Cells(10, HeaderArray(5).Column)).Select

    End With
End Sub

更简洁的写法优化 #

因为HeaderArray中存储的本身就是表头单元格对象，你可以直接用这些对象定义范围，不需要额外取Column属性，代码更简洁：

' 直接用数组中的单元格对象作为范围起点，搭配目标行号定义终点
.Range(HeaderArray(2), .Cells(10, HeaderArray(5).Column)).Select

' 或者如果要选中从第1行到第10行、包含HeaderArray(2)到HeaderArray(5)列的完整区域，也可以写成：
.Range(HeaderArray(2), HeaderArray(5).Offset(9, 0)).Select

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