在矩阵上运行并查找单元格是数字还是字符串（字母）

Question

我在 excel 中构建了一个 vba 程序，该程序将在 10X10 矩阵上运行，其中包含数字和字母（每个单元格只有一个 - 或字母或数字） 当你找到一个带有数字的单元格时，将其变为蓝色并写下数字（而不是数字） 当您找到带有字母的单元格时，将其变为黄色并写入字符串（而不是数字） 最后得到所有带有数字的单元格并计算平均值（如果只是得到一个总和变量和数字单元格数量的计数器） 答案应该写入另一个工作表 - 带有颜色和单词“数字”和“字符串”的新矩阵，低于平均值

这是我的新程序

Sub Num_Str_Matrix()
Sheets("Matrix2").Cells.Clear
Dim i, j As Integer
Dim Sum As Integer
Dim Counter As Integer
Dim Average As Double
Dim x As String
Sum = 0
Counter = 0
i = 1
j = 1
Do Until Sheets("Matrix").Cells(i, j).Value = ""
    j = 1
    Do Until Sheets("Matrix").Cells(i, j).Value = ""
        x = Sheets("Matrix").Cells(i, j).Value
        If IsNumeric(x) Then
            Sum = Sum + Sheets("Matrix").Cells(i, j).Value
            Counter = Counter + 1
            Sheets("Matrix2").Cells(i, j).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent5
                .TintAndShade = 0.599993896298105
                .PatternTintAndShade = 0
                ActiveCell.FormulaR1C1 = "Number"
            End With
        Else
            Sheets("Matrix2").Cells(i, j).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent4
                .TintAndShade = 0.599993896298105
                .PatternTintAndShade = 0
                ActiveCell.FormulaR1C1 = "String"
            End With
        End If
    j = j + 1
    Loop
i = i + 1
Loop
Average = Sum / Counter

结束子

由于某种原因，我无法确定该程序不会进入下一个循环 t 将在第一行运行然后停止。 现在它甚至因为这个错误而无法工作：“范围类的选择方法失败”

请帮帮我。

Answer 1

一个棘手的双循环

快速修复

Option Explicit

Sub Num_Str_Matrix()
    Dim i As Long, j As Long
    Dim x As Variant
    i = 1
    j = 1
    x = Sheets("Matrix").Cells(i, j).Value
    Do
        Do
            If IsNumeric(x) Then
                With Cells(i, j)
                    .Value = "Number"
                    With .Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .ThemeColor = xlThemeColorAccent5
                        .TintAndShade = 0.599993896298105
                        .PatternTintAndShade = 0
                    End With
                End With
            Else
                With Cells(i, j)
                    .Value = "String"
                    With .Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .ThemeColor = xlThemeColorAccent4
                        .TintAndShade = 0.599993896298105
                        .PatternTintAndShade = 0
                    End With
                End With
            End If
            ' Debug.Print Cells(i, j).Address, Cells(i, j).Value
            j = j + 1
            x = Sheets("Matrix").Cells(i, j).Value
        Loop Until x = ""
        j = 1
        i = i + 1
        x = Sheets("Matrix").Cells(i, j).Value
    Loop Until x = ""

End Sub