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.
Nenhum comentário:
Postar um comentário