时间戳

首页 > 解决方案 > 多个范围的 VBA 行

excel - 多个范围的 VBA 行

问题描述

我想要 B1、E1 和 H1 行有多个边框。如何扩展范围命令而不一遍又一遍地重复它？

代码是：

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

标签： excelvbarangeborderline

解决方案

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

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

推荐阅读