excel - 使用VBA从表中删除空白条目

Question

我有一个输入表，可以对其进行计算。该表中的空行会影响计算。现在，我有一个宏，每次进行任何更改时都会对表进行排序，因此所有空白行都会收集在表的底部。所以我只需要在每次计算之前手动调整表格的大小。

您可以在此处的表格底部看到一个空行。我不知道如何删除它以使表格以最后一个非空条目结尾

但我想知道是否有一种方法可以使用 VBA 将表网格恢复到最后一个非空行，并从表中删除空行。谢谢!

Answer 1

这是删除空行的 VBA 函数

Public Sub DeleteBlankRows()
    Dim LastRowIndex As Integer
    Dim RowIndex As Integer
    Dim UsedRng As Range
 
    Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
 
    For RowIndex = LastRowIndex To 1 Step -1
        If Application.CountA(Rows(RowIndex)) = 0 Then
            Rows(RowIndex).Delete
        End If
    Next RowIndex
 
    Application.ScreenUpdating = True
End Sub

这是示例

这就是它的样子