Eliminar formato en Excel
Cuando pego en Excel una tabla proveniente de una página web utilizo esta macro para quitarle los colorines:
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.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Hyperlinks.Delete
Selection.RowHeight = 12.75
Cells.EntireColumn.AutoFit
If ActiveSheet.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
Selection.Delete
End If
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.
Historial
- v2012-07-07
- Eliminar también color de fondo y bordes.
- v2008-09-15
- Primera versión.
