运行时错误“13”：使用“CountA”循环时类型不匹配

如何解决运行时错误“13”：使用“CountA”循环时类型不匹配

编辑：问题是一些输入是字符串而不是数字，这会导致这行代码显示错误：

CompaniesListBox.List(i - 1,j - 1) = Start.Offset(i - 1,j - 1).Value * 100 & " %"

编辑结束。

我在尝试运行代码时收到“运行时错误‘13’：类型不匹配”。

基本上我想要做的是用矩阵填充用户表单的列表框。我还想计算它应该使用多少行（使用 wooksheetfunction.CountA），但我收到一个我似乎无法解决的错误。

有什么想法吗？

经过一些调试后，似乎是导致问题的函数，也许“Rows”不是循环的有效变量？

Private Sub UpdateCompaniesListBox()
    Dim Rows As Integer
    Dim Columns As Integer
    Dim Start As Range
    Dim CountwindowA As Range
    
    
    Set CountwindowA = Sheets("Basic Data").Range("AM4:AM33") 'Window where from top to bottom wheras value can be
    Set Start = Sheets("Basic Data").Range("AM4") ' This should be the first cell that has a value.
    
    Rows = WorksheetFunction.CountA(CountwindowA)
    'MsgBox Rows
    
    Columns = 8

        For i = 1 To Rows
            CompaniesListBox.AddItem
            For j = 1 To Columns
                If (j = 6) Or (j = 7) Then
                    CompaniesListBox.List(i - 1,j - 1).Value * 100 & " %"
                    Else
                    CompaniesListBox.List(i - 1,j - 1).Value
                End If
            Next j
        Next i
    CompaniesListBox.ColumnWidths = "118,72,49,60,71,99,38,73"
End Sub