使用 Excel 删除表格中的空白行

Question

我想创建一个宏来循环遍历表并根据 B:E 列中的条件删除空白行，而不删除表的倒数第二行。

表格的倒数第二行在 B:E 列中将始终为空，因此我希望它跳过该行。

这里是B、C、D、E列的名称

客户
管道阶段（选择下拉菜单）
预测收盘（选择下拉菜单）
潜在机会

这是我下面的内容，但我不确定如何将其修改为正确的格式。

Sub Delete_Table_Rows()

Dim tblrows As Range
Dim client As Long
Dim tbl As ListObjects
Dim ws As Worksheet

With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False

Set ws = Sheets(“sheet1”)
set tblrows = ws.worksheets("sheet1").Range(“table1, [client]").Value = ""

    For client = Selection.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(Selection.Rows(client)) = “” Then
            Selection.Rows(client).EntireRow.Delete
        End If
Next i
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub

Answer 1

也许是这样的......

Sub DeleteBlankRowsFromTable()
Dim ws As Worksheet
Dim tbl As ListObject
Dim i As Long, FirstRow As Long, LastRow As Long
Dim rng As Range
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
End With

Set ws = Sheets("Sheet1")
Set tbl = ws.ListObjects("Table1")

FirstRow = Range("Table1[Client]").Row

LastRow = tbl.Range.Cells(tbl.Range.Cells.Rows.Count, 1).Row

For i = LastRow - 2 To FirstRow Step -1
    Set rng = ws.Range(ws.Cells(i, 2), ws.Cells(i, 2).End(xlToRight))
    If WorksheetFunction.CountBlank(rng) = 4 Then
        ws.Rows(i).Delete
    End If
Next i

With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub