VBA Excel:查找使用了5列以上的行

Sub FindRowsWithMoreThan5Columns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim columnCount As Long
    
    '选择需要进行查找的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    '遍历每一行
    For i = 1 To lastRow
        '获取当前行的列数
        columnCount = ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column
        
        '判断列数是否大于5
        If columnCount > 5 Then
            '在Immediate窗口中输出符合条件的行号
            Debug.Print "Row " & i & " has more than 5 columns."
        End If
    Next i
End Sub