VBA类型的不匹配错误与范围。值和范围。

Question

我有以下VBA代码，似乎有部分工作？有时它有效，有时不行。我在“如果Len（C.Value）＆gt; 30和C.row＆lt;＆gt; 1”上遇到类型的不匹配错误。任何帮助都会很棒，谢谢。

Sub GSSLength()
    Dim c As Range
    Dim ws As Worksheet
    Dim j As Long

    j = 0

    For Each ws In ActiveWorkbook.Worksheets    
        If ws.Name Like "BOM" Then        
            For Each c In ws.Range("A2:R10000")
                If Len(c.Value) > 30 And c.Row <> 1 Then        
                    ws.Cells(c.Row, c.Column).Interior.ColorIndex = 3            
                    j = j + 1                
                End If        
             Next c    
        End If
    Next ws

    If j > 0 Then
        MsgBox j & " errors found where the length of cell is longer than 30 characthers, please correct in columns that are red."
    End If

End Sub

Answer 1

我假设这不是您的最终代码..？您指定的范围永远不会具有row = 1，并且您正在使用“ bom”在喜欢语句中似乎是不必要的。也许您只是为了这个问题而将其放在其中。

忽略这些奇数，您可能有一个包含错误的单元格。您可以像这样将其捕获：

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "BOM" Then
        For Each c In ws.Range("A2:R10000")
            
            If Not (IsError(c)) Then

                If Len(c.Value) > 30 And c.Row <> 1 Then
                    ws.Cells(c.Row, c.Column).Interior.ColorIndex = 3
                    j = j + 1
                End If
            End If
         Next c
    End If
Next ws

Answer 2

感谢所有提示，我只是注意到我的单元格中有一个错误格式而不是字符串，而Len函数在那里丢了错误。