VBA: 同时选中多个不相邻的单元格区域

文章背景：在工作中，有时需要同时引用多个不连续的单元格区域，然后进行相应的操作（如改变单元格底色，增加外框线等）。

引用单元格区域的方式：

• Range("A1:B5") 引用单元格区域
• Range("A1","B5") 引用两个单元格围成的矩形区域
• Range("A1:D5 , G6:I17") 引用两个不连续的单元格区域

（1）单元格的区域已确定

假如有两个不连续的单元格区域，D4:E5和G4:H5。在VBA中有两种引用方式。

代码语言：javascript复制

Set obj_range = Range("D4:E5,G4:H5")

代码语言：javascript复制

Set obj_range = Union(Range("D4:E5"), Range("G4:H5"))

示例：

代码语言：javascript复制

Option Explicit

Sub SelectDisContinous():

    '已知目标区域的情况下，选中不连续的多个区域
    Dim obj_range As Range
    
    '方法1：Set obj_range = Range("D4:E5,G4:H5")   '方法2：
    Set obj_range = Union(Range("D4:E5"), Range("G4:H5"))
    
    obj_range.Interior.ColorIndex = 22

End Sub

（2）单元格的区域不确定

假设一开始目标单元格区域不确定，经过判断后才确定它在哪一行。

示例：经过判断后，假定目标单元格的起始行在第4行。

代码语言：javascript复制

Sub UnionDisContinous():

    '确定目标区域后，选中不连续的多个区域
    Dim obj_range As Range, num As Integer
    
    num = 4
    
    Set obj_range = Union(Range(Cells(num, 4), Cells(num   1, 5)), Range(Cells(num, 7), Cells(num   1, 8)))
    
    obj_range.Interior.ColorIndex = 22

End Sub

参考资料：

[1] VBA 用变量或数组引用不连续单元格（https://blog.csdn.net/logo_28/article/details/104860715）

vba

0 人点赞