VBA: 同时选中多个不相邻的单元格区域
文章背景:在工作中,有时需要同时引用多个不连续的单元格区域,然后进行相应的操作(如改变单元格底色,增加外框线等)。
引用单元格区域的方式:
Range('A1:B5') 引用单元格区域
Range('A1','B5') 引用两个单元格围成的矩形区域
Range('A1:D5 , G6:I17') 引用两个不连续的单元格区域
(1)单元格的区域已确定
假如有两个不连续的单元格区域,D4:E5和G4:H5。在VBA中有两种引用方式。
Set obj_range = Range('D4:E5,G4:H5')Set obj_range = Union(Range('D4:E5'), Range('G4:H5'))
示例:
Option ExplicitSub SelectDisContinous():
'已知目标区域的情况下,选中不连续的多个区域
Dim obj_range As Range
'方法1:Set obj_range = Range('D4:E5,G4:H5')
'方法2:
obj_range.Interior.ColorIndex = 22
End Sub
(2)单元格的区域不确定
假设一开始目标单元格区域不确定,经过判断后才确定它在哪一行。
示例:经过判断后,假定目标单元格的起始行在第4行。
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)
本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
0条评论