valor - Macro de Excel a las celdas de borde dentro del rango variable

seleccionar rango variable vba

Question

Necesito automatizar el formateo de una hoja de trabajo excel exportada con filas variables y columnas variables. Parece muy simple, pero estoy perplejo. Solo necesito agregar bordes a todas las celdas en la tabla.

No estoy muy seguro con VBA, pero he estado buscando una solución para esto durante unos días sin suerte. Mucha ayuda para rangos fijos, y logré lo que necesito para una sola columna, pero me he topado con una pared y parece que no funciona todo el rango.

Ejemplo de lo que intento hacer en inglés:

Agregue bordes a celdas en el rango "A1" a "última columna con datos en la fila 1 y la última fila con datos en la columna A"

Cualquier ayuda es muy apreciada.

Dave

Answer 1

Quizás algo como:

Sub BoxIt()
Set r = Range("A1").CurrentRegion
With r.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With r.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With r.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With r.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With r.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub