Views

Histats

Vitrine

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.


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...