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