Как автоматизировать вертикальные границы столбцов для 2Column-групп

Question

Я пытаюсь создать автоматизированный процесс, который добавляет полужирный ВЕРТИКАЛЬНЫЙ границы для ДВУХПАРНЫХ групп столбцов.

Пробовал с серией заливки и трендом, потому что я не знаю, как написать это как код VBA ..

Конечный результат должен выглядеть следующим образом:

Это нужно для моего рабочего места, любой совет может помочь, спасибо.

С наилучшими пожеланиями, Эмануэль

Answer 1

Вы можете попробовать:

Option Explicit

Sub test()

    Dim i As Long, Lastrow As Long

    'Set up to which line to add border
    Lastrow = 10

    With ThisWorkbook.Worksheets("Sheet1")
        'Set from which column to begin & end
        For i = 2 To 10 Step 2
            With .Range(.Cells(1, i), .Cells(Lastrow, i)).Borders(xlEdgeRight)
                .LineStyle = xlContinuous
            End With
        Next i

    End With

End Sub

Answer 2

Используйте для этого условное форматирование, например:

• Выделить весь лист:

• Перейдите в Условное форматирование> Новое правило> Использовать формулу: =MOD(COLUMN()/2,1)=0
• Формат по своему вкусу, пример ниже:

Это просто не будет смелым