Добавление всех границ в выбранный диапазон, есть ли более короткий способ написать код?

Question

Я добавляю все границы к определенному диапазону. В моем случае (A6: O6) в excel VBA работает код ниже, но я бы предположил, что для его написания должен быть более короткий способ. Я нашел одну строку кода, которая помещает границу вокруг всего выделения, но не вокруг каждой ячейки.

Range("A6:O6").Select 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
    With Selection.Borders(xlEdgeLeft) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeTop) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeBottom) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeRight) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlInsideVertical) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlInsideHorizontal) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 

Answer 1

Вы можете использовать следующие операторы

Dim myRange As Range 
Set myRange = Range("A6:O6") 

With myRange.Borders 
    .LineStyle = xlContinuous 
    .ColorIndex = 0 
    .TintAndShade = 0 
    .Weight = xlThin 
End With 

Answer 2

Попробуйте это. Он добавит границу вокруг каждой ячейки в диапазоне A6: O6.

Sub Macro1() 
Dim rng As Range 
' Define range 
Set rng = Range("A6:O6") 

With rng.Borders 
    .LineStyle = xlContinuous 
    .Weight = xlThin 
    .ColorIndex = 0 
    .TintAndShade = 0 
End With 
End Sub