Блог

У меня есть таблица входных данных, на которой я выполняю вычисления. Наличие пустых строк в этой таблице влияет на вычисления. Прямо сейчас у меня есть макрос, который сортирует таблицу каждый раз, когда вносятся какие-либо изменения, из-за чего все пустые строки собираются в нижней части таблицы. Поэтому мне просто нужно вручную изменять размер таблицы перед каждым вычислением.

Здесь вы можете увидеть пустую строку в нижней части таблицы. Я не знаю, как его удалить, чтобы таблица заканчивалась последней непустой записью

Но я хочу знать, есть ли способ привязать сетку таблицы к последней непустой строке с помощью VBA и удалить пустые строки из таблицы. Спасибо!

Вот функция 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
 

Вот пример

И вот как это выглядит после

Удаление пустых строк в таблице Excel

• Нет необходимости сортировать таблицу, если вы этого не хотите.

 Option Explicit

Sub DeleteTableBlankRows()
    
    With Sheet1.ListObjects(1).DataBodyRange
        
        Dim cCount As Long: cCount = .Columns.Count
        
        Dim drg As Range ' Delete Range
        Dim rrg As Range ' Row Range
        
        For Each rrg In .Rows
            If Application.CountBlank(rrg) = cCount Then
                If drg Is Nothing Then
                    Set drg = rrg
                Else
                    Set drg = Union(drg, rrg)
                End If
            End If
        Next rrg
        
        If Not drg Is Nothing Then
            drg.Delete
        End If
    
    End With
            
End Sub
 

Пожалуйста, используйте следующий Sub . Он удалит все пустые строки таблицы после фильтрации. Я имею в виду последние (пустые) :

 Private Sub deleteTableEmptyRows(Optional TblD As Range) 'calculate table last empty rows
   Dim lastShER As Long, lastShTblR As Long, lastTblER As Long, lastTblR As Long
   
   If TblD Is Nothing Then Set TblD = ActiveSheet.ListObjects(1).DataBodyRange
   lastShER = TblD.cells(TblD.rows.count, 1).End(xlUp).row   1 'last empty row on the sheet (no needed, only to demonstrate how to calculate)
     lastTblER = lastShER - (TblD.row - 1)                     'last empty row on the table DataBodyRange
   lastShTblR = TblD.rows.count   TblD.row                     'last table row on the sheet
     lastTblR = lastShTblR - TblD.row                          'last table row
   If lastTblER > 1 Then TblD.rows(lastTblER amp; ":" amp; lastTblR).Select 'please, change Select with Delete, only after checking that selected range is as you need
End Sub
 

Это можно назвать так:

 Sub testDeleteTableEmptyRows()
    Dim TblD As Range
     Set TblD = ActiveSheet.ListObjects(1).DataBodyRange 'use here the table name (or index)
     deleteTableEmptyRows TblD
End Sub