如何为2Column-Groups自动化垂直列边框

Question

我正在尝试创建一个自动过程，为两个成对的列组添加粗体 <垂直>垂直边框。

尝试了填充系列和趋势，因为我不知道如何将其编写为vba代码。

The end-result should look like the example below:

我的工作场所需要这个，任何建议都可以帮上忙，谢谢。

最好的问候，  伊曼纽尔

Answer 1

为此使用条件格式，例如：

• 整张床单：

• 转到条件格式>新规则>使用公式：game.time.events.add(/*time in ms*/, /*func to be called after timer ends*/, this);
• 设置为您喜欢的格式，例如以下示例：

它不会大胆

Answer 2

您可以尝试：

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