Desenvolvi esta solução a partir de várias soluções que poderão consultar depois.
6º exemplo:
Sub RemovePageHeaders()
Application.ScreenUpdating = False
Dim objRange As Range
Set objRange = Cells.Find("HeaderText")
While objRange <> ""
objRange.Offset(1, 0).Rows(1).EntireRow.Delete
objRange.Rows(1).EntireRow.Delete
Set objRange = Cells.Find("HeaderText")
Wend
MsgBox ("Removido todos os cabeçalhos")
End Sub
Tags: Excel, Delete, clean, remove, header, Linha, Plan, Planilhas, Row, rows, worksheet, lines, UDF
André Luiz Bernardes
A&A® - In Any Place.
Nenhum comentário:
Postar um comentário