VBA 宏：错误 13 类型不匹配，单元格错误 2023

Question

我正在尝试制作一个宏来对行进行分组并对它们在列中的项目数量求和，我这样做是为了让它工作但在几行之后它只是崩溃并显示

Error 13: Type mismatch.

当我打开代码时，它突出显示了这一行

stringb = Cells(cont2, 7)

密码是这个：

Sub Juntarfilas()
    Dim Av1 As Double
    Dim cont As Long
    Dim cont2 As Long
    Dim numcol As Integer
    Dim comp1 As Integer
    Dim check As String
    Dim string1 As String
    Dim string2 As String
    Dim stringa As String
    Dim stringb As String
    Dim Rango As Variant

    Sheets("RESULTADO").Select
    numcol = Range("E2").Column
    cont = 2
    cont2 = 3

    If IsEmpty(Range("E2").Value) = True Then
        check = 0
    Else
        check = 1
    End If

    While (check = 1)
        string1 = Cells(cont, 5)
        string2 = Cells(cont2, 5)
        stringa = Cells(cont, 7)
        stringb = Cells(cont2, 7)
        comp1 = StrComp(string1, string2)
        If (comp1 = "0") Then
            Rango = Range(Cells(cont, 7), Cells(cont2, 7))
            Av1 = Application.WorksheetFunction.Sum(Rango)
            Cells(cont, 7) = Av1
            cont = cont
            cont2 = cont2
            Rows(cont2).EntireRow.Delete
        Else
            cont = cont + 1
            cont2 = cont2 + 1
        End If

        If IsEmpty(string1) = True Then
            check = 0
        Else
            check = 1
        End If
    Wend
End Sub

我想不出解决办法，所以才来这里看看是否有人可以帮助我，在此先感谢。

如果有必要，我也可以发送 excel 文件。

Answer 1

当 stringb = Cells(cont2, 7) 中的单元格包含 returns 错误的公式（例如 #DIV/0! 或 #N/A! 或任何其他）。

改为使用 stringb = Cells(cont2, 7).Text 将错误文本作为字符串获取。

VBA 宏：错误 13 类型不匹配，单元格错误 2023

VBA Macro: Error 13 Type Mismatch, error 2023 on cell

vba

excel

type-mismatch