Как я могу обновить код для удаления пробелов и конкретной & ldquo; string & rdquo;

Таким образом, варианты работы с этим циклом:

1). Первый вариант заключается в том, чтобы удалить строку за строкой при выполнении критериев:

Option Explicit
Private Sub remove_blank_or_gender()

Dim StartTime As Double
Dim SecondsElapsed As Double
StartTime = Timer

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    Dim lr As Long 'last row
    lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = lr To 1 Step -1
        If IsEmpty(ws.Cells(i, 1)) Or ws.Cells(i, 1) = "Gender" Then
            ws.Rows(i).EntireRow.Delete
        End If
    Next i
Next ws

SecondsElapsed = Round(Timer - StartTime, 2)
Debug.Print SecondsElapsed

End Sub

Выполнение этого кода в рабочей книге с одним листом с столбцом A, строки 1-1000, заполненные значением «Пол», будут приводят к времени выполнения:

1). Вариант второй с использованием функции Union:

Option Explicit
Private Sub remove_blank_or_gender()

Dim StartTime As Double
Dim SecondsElapsed As Double
Dim RNG As Range
StartTime = Timer

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    Set RNG = Nothing
    Dim lr As Long 'last row
    lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = lr To 1 Step -1
        If IsEmpty(ws.Cells(i, 1)) Or ws.Cells(i, 1) = "Gender" Then
            If Not RNG Is Nothing Then
                Set RNG = Union(RNG, Range(ws.Cells(i, 1).Address))
            Else
                Set RNG = Range(ws.Cells(i, 1).Address)
            End If
        End If
    Next i
RNG.Rows.EntireRow.Delete
Next ws

SecondsElapsed = Round(Timer - StartTime, 2)
Debug.Print SecondsElapsed

End Sub

во время выполнения:

Код немного беспорядочен, но я хотел указать два варианта, чтобы показать разницу во времени выполнения :) , Обратите внимание, что эти тесты выполняются локально, а времена могут меняться!

Удачи!