VBA 行表示多个范围

Question

我想要 B1、E1 和 H1 行的多个边框。如何在不一遍又一遍地重复的情况下扩展范围命令？

密码是：

 Worksheets("Table1").Range("B1:B29").BorderAround _
 ColorIndex:=1

Answer 1

你的意思是你可以通过联盟实现吗？

Option Explicit
Public Sub test()
    Dim unionRng As Range
    With Worksheets("Table1")
    Set unionRng = Union(.Range("B1:B29"), .Range("E1:E29"), .Range("H1:H29"))
    End With
    unionRng.BorderAround _
        ColorIndex:=1
End Sub

您可以缩短为：

Public Sub test()
    With Worksheets("Table1")
       Union(.Range("B1:B29"), .Range("E1:E29"), .Range("H1:H29")).BorderAround _
        ColorIndex:=1
    End With
End Sub

Answer 2

交替使用相交：

Sub tgr()

    With Worksheets("Table1")
        Intersect(.Range("1:29"), .Range("B:B,E:E,H:H")).BorderAround , , 1
    End With

End Sub

VBA 行表示多个范围

VBA lines for multiple ranges

excel

vba

border

range

line