Excel VBA矩阵程序报错求助：循环终止及Select方法失败

先来说说你的代码里导致两个问题的核心原因，以及对应的修复方案：

1. 程序仅处理首行就终止的根源 #

你的外层循环条件写的是 Do Until Sheets("Matrix").Cells(i, j).Value = ""，当处理完第一行所有列后，j 被重置为1，此时外层循环会检查第二行第一列的单元格——如果这个单元格是空的，循环直接就终止了，根本不会处理剩下的行。

因为你的矩阵是固定10×10的，直接用固定次数的For循环更可靠，完全不用依赖单元格是否为空。

2. "Select method of Range class failed" 错误原因 #

VBA里调用Select方法要求目标工作表处于激活状态，如果Matrix2没被激活，执行Sheets("Matrix2").Cells(i, j).Select就会报错。而且Select和Selection这类操作不仅容易出错，运行效率还低，直接操作Range对象才是最佳实践。

3. 其他潜在隐患 #

• 变量声明问题：Dim i, j As Integer 里i其实是Variant类型，要改成Dim i As Integer, j As Integer；另外Sum用Integer的话，如果数字总和超过32767会溢出，换成Long更稳妥。
• 除以0风险：如果矩阵里没有数字，Counter为0，计算Average = Sum / Counter会触发错误，需要提前加判断。

修正后的完整代码 #

Sub Num_Str_Matrix()
    Dim wsMatrix As Worksheet
    Dim wsMatrix2 As Worksheet
    Dim i As Integer, j As Integer
    Dim Sum As Long
    Dim Counter As Integer
    Dim Average As Double
    Dim x As String
    
    ' 提前绑定工作表对象，避免重复查找开销，代码更清晰
    Set wsMatrix = ThisWorkbook.Sheets("Matrix")
    Set wsMatrix2 = ThisWorkbook.Sheets("Matrix2")
    
    ' 清空Matrix2内容
    wsMatrix2.Cells.Clear
    
    Sum = 0
    Counter = 0
    
    ' 固定循环10行10列，确保遍历完整矩阵
    For i = 1 To 10
        For j = 1 To 10
            x = wsMatrix.Cells(i, j).Value
            
            If IsNumeric(x) Then
                Sum = Sum + CLng(wsMatrix.Cells(i, j).Value) ' 转Long避免类型不匹配
                Counter = Counter + 1
                
                ' 直接设置单元格格式和内容，无需Select
                With wsMatrix2.Cells(i, j)
                    .Interior.Pattern = xlSolid
                    .Interior.PatternColorIndex = xlAutomatic
                    .Interior.ThemeColor = xlThemeColorAccent5
                    .Interior.TintAndShade = 0.599993896298105
                    .Interior.PatternTintAndShade = 0
                    .Value = "Number"
                End With
            Else
                With wsMatrix2.Cells(i, j)
                    .Interior.Pattern = xlSolid
                    .Interior.PatternColorIndex = xlAutomatic
                    .Interior.ThemeColor = xlThemeColorAccent4
                    .Interior.TintAndShade = 0.599993896298105
                    .Interior.PatternTintAndShade = 0
                    .Value = "String"
                End With
            End If
        Next j
    Next i
    
    ' 处理无数字的情况，避免除以0错误
    If Counter > 0 Then
        Average = Sum / Counter
        ' 把平均值写入Matrix2的A11-B11位置，可根据需求调整
        wsMatrix2.Cells(11, 1).Value = "平均值:"
        wsMatrix2.Cells(11, 2).Value = Average
    Else
        wsMatrix2.Cells(11, 1).Value = "无数字可计算平均值"
    End If
    
    ' 释放对象
    Set wsMatrix = Nothing
    Set wsMatrix2 = Nothing
End Sub

关键改进点说明 #

• 绑定工作表对象，减少重复查找工作表的开销，代码可读性更强。
• 用For循环替代Do Until，确保遍历完整的10×10矩阵，不受空单元格干扰。
• 移除所有Select和Selection操作，直接操作单元格对象，避免激活工作表的要求，运行更稳定高效。
• 修复变量类型问题，添加除以0的判断，大幅提升代码健壮性。
• 明确指定平均值的写入位置，你可以根据实际需求调整到其他单元格。

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