VBA: 同时选中多个不相邻的单元格区域 |
您所在的位置:网站首页 › vba选择区域 › 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) |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |