Sub Prepare()
Dim CR As LongDim LR As LongLet Application.ScreenUpdating = FalseLet Application.Calculation = xlCalculationManualLet LR = ActiveSheet.Range("B65536").End(xlUp).RowFor CR = LR To 3 Step -1
If ActiveSheet.Cells(CR, "A") = "" ThenLet ActiveSheet.Cells(CR - 1, "B") = Cells(CR - 1, "B") & " " & Cells(CR, "B")ActiveSheet.Cells(CR, "A").EntireRow.DeleteEnd If
Next CRLet Application.ScreenUpdating = TrueLet Application.Calculation = xlCalculationAutomaticApplication.Calculate
End Sub
Tags: Excel, delete, line, row
André Luiz Bernardes
Nenhum comentário:
Postar um comentário