VBScript中使用变量索引数组时类型不匹配（工作表相关）

看起来你遇到的类型不匹配错误，大概率是数组索引越界或者单元格值类型处理不当导致的，咱们一步步拆解问题并修正代码：

核心问题分析 #

1. 数组索引混淆：你用Array(0,0,...)创建的是VBScript默认的0基数组（16个元素的索引范围是0~15），但循环时用i=1~16直接作为数组索引，当i=16时访问mlen(16)就会触发越界，进而抛出类型不匹配错误。
2. 单元格值未做类型转换：如果单元格包含错误值（比如#N/A、#VALUE!）或者非文本类型（数字、日期），直接判断Cells(rw2,i)<>""或计算长度时，会因为类型不兼容报错。
3. 循环未递增行号：你的原代码里没写rw2 = rw2 +1，会导致无限循环，这也是潜在问题。

修正后的完整代码 #

' 声明0基数组，16个元素对应列1~16（索引0对应列1，索引15对应列16）
Dim mlen(15)
Dim ws, i, rw2, currentCellValue, currentLen

' 明确指定操作的工作表，避免上下文歧义
Set ws = ActiveSheet

' 遍历前16列
For i = 1 To 16
    rw2 = 2 ' 从第二行开始检查
    ' 循环直到遇到空单元格（可根据需求调整判断逻辑）
    Do While Not IsEmpty(ws.Cells(rw2, i).Value)
        ' 将单元格值转为字符串，兼容数字、日期、错误值等类型
        currentCellValue = CStr(ws.Cells(rw2, i).Value)
        currentLen = Len(currentCellValue)
        
        ' 更新当前列的最大长度
        If currentLen > mlen(i - 1) Then
            mlen(i - 1) = currentLen
        End If
        
        rw2 = rw2 + 1 ' 移动到下一行，避免无限循环
    Loop
Next

' 可选：打印测试结果，验证每列的最长长度
For i = 0 To 15
    WScript.Echo "第" & (i + 1) & "列的最长值长度：" & mlen(i)
Next

关键修正点说明 #

• 数组索引对齐：用i-1作为数组索引，让列号1~16对应数组索引0~15，彻底避免越界问题。
• 类型安全处理：用CStr()强制转换单元格值为字符串，确保Len()函数能正常计算长度，不会因为单元格值类型报错。
• 明确工作表引用：通过Set ws = ActiveSheet指定操作的工作表，避免在多工作表环境下出现引用错误。
• 循环终止逻辑：用IsEmpty()判断空单元格，比<>""更准确（能识别真正的空白单元格，而非空字符串）。

如果你需要处理包含空格的“空白”单元格，可以把循环条件改成：

Do While Trim(CStr(ws.Cells(rw2, i).Value)) <> ""

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