VBA Excel - Deletando linhas com informações.

Você provavelmente precisa vez ou outra, deletar todas as linhas utilizadas na 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, delete, line, row

André Luiz Bernardes

A&A® - In Any Place.