VBA Excel - Limpando cabeçalhos sem uso no Excel

Inline image 1
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

diHITT - Notícias