刪除長度小於8個字符的單元格

Question

我有一些具有兩千行的電子表格。 我想要一個宏來計算'A'列中單元格中的字符數，如果它少於8個字符，則刪除該行。

Answer 1

請在Excel上運行此代碼

Sub DelRows()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Len(Range("A" & i).Value) < 8 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Answer 2

你可以嘗試：

Option Explicit

Sub test()

    Dim ws As Worksheet
    Dim Lastrow As Long, Row As Long

        'Loop sheets
        For Each ws In ThisWorkbook.Worksheets

            With ws
                'Find Last row of column A in sheet ws
                Lastrow = .cells(.Rows.Count, "A").End(xlUp).Row

                'Loop rows from bottom to top
                For Row = Lastrow To 1 Step -1

                    'Check value lenght
                    If Len(.Range("A" & Row).Value) > 8 Then
                        .Rows(Row).Delete
                    End If

                Next Row

            End With

        Next ws

End Sub