Eliminar formato en Excel

Cuando pego en Excel una tabla proveniente de una página web utilizo esta macro para quitarle los colorines:

'

' EliminarFormatoTablaHTML Macro - v2008-09-15

'

Sub EliminarFormatoTablaHTML()

    Cells.Select

    With Selection.Font

        .Name = "Arial"

        .Size = 10

        .Bold = False

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Selection.Hyperlinks.Delete

    Selection.RowHeight = 12.75

    Cells.EntireColumn.AutoFit

    ' Fuera controles de formulario

    If ActiveSheet.Shapes.Count > 0 Then

        ActiveSheet.Shapes.SelectAll

        Selection.Delete

    End If

    ' Movemos el foco a la primera celda

    Range("A1").Select

End Sub

Advertencia: la macro la he hecho yo y no tengo ni idea de VBA; buena parte del código proviene de la grabación automática del propio Excel.

También te puede interesar...

... mi bonito JavaScript para seleccionar tablas en una página web.

Esta página ha sido impresa el jueves 29 de julio de 2010 (21:25:37 +0200) desde http://borrame.com/recortes/otros/eliminar-formato-excel.html. La última vez que miré contenía HTML válido con CSS fresquito y si tiene flatas de ortografía ha sido sin querer.

borrame.com es el sitio anteriormente conocido como bits.demogracia.com (no confundir con Demogracia, que sólo pasaba por ahí).

Lo más fresco

Sugerencias del chef

Lo más visitado

Menú del día

Eliminar formato en Excel

También te puede interesar...