VBA Excel - Deletando linhas - 08 - Deletando linhas com informações.

Você provavelmente precisa vez ou outra deletar as linhas utilizadas da sua planilha, ou talvez deseja disponibilizar este código na planilha caso alguém a abra sem a sua autorização.

Sub Prepare()
    Dim CR As Long
    Dim LR As Long

    Let Application.ScreenUpdating = False
    Let Application.Calculation = xlCalculationManual
    Let LR = ActiveSheet.Range("B65536").End(xlUp).Row

    For CR = LR To 3 Step -1
        If ActiveSheet.Cells(CR, "A") = "" Then
            Let ActiveSheet.Cells(CR - 1, "B") = Cells(CR - 1, "B") & " " & Cells(CR, "B")
           
            ActiveSheet.Cells(CR, "A").EntireRow.Delete
        End If
    Next CR

    Let Application.ScreenUpdating = True
    Let Application.Calculation = xlCalculationAutomatic

    Application.Calculate
End Sub

Tags: Excel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines

André Luiz Bernardes

A&A® - In Any Place.