如何在VBA中选择多个相对单元格？类比推导对应代码

先梳理示例里的对应逻辑：

• A是单个固定区域，B是通过在Range()中用逗号分隔多个固定区域实现多选；
• 对应C是单个基于ActiveCell的相对区域，D就要用同样的组合思路，把多个相对偏移的区域合并后选择。

写法1：直接在Range()中组合偏移区域 #

和B的写法完全对应，把每个相对区域用ActiveCell.Offset()定义后用逗号分隔：

' 示例：选择ActiveCell向右偏移2列的2x2区域，以及向右偏移4列的2x2区域
Range(ActiveCell.Offset(0, 2).Resize(2, 2), ActiveCell.Offset(0, 4).Resize(2, 2)).Select

你可以根据实际需求调整Offset的偏移参数（行,列）和Resize的行列数，来定义不同的相对区域

写法2：用Union函数合并区域 #

如果需要更清晰的代码结构，推荐用Union函数，它是VBA中专门用来合并不连续区域的工具：

Dim area1 As Range, area2 As Range
' 定义第一个相对区域：ActiveCell向右偏移2列，2行2列
Set area1 = ActiveCell.Offset(0, 2).Resize(2, 2)
' 定义第二个相对区域：ActiveCell向右偏移4列，2行2列
Set area2 = ActiveCell.Offset(0, 4).Resize(2, 2)
' 合并并选择两个区域
Union(area1, area2).Select

这种写法的优势是便于扩展——如果要加更多相对区域，只需新增变量定义区域，再加入Union的参数里即可

核心对应关系 #

A到B的本质是「从单个固定区域扩展为多个固定区域的组合」，C到D则是「从单个相对偏移区域扩展为多个相对偏移区域的组合」，核心都是通过合并多个区域来实现多选。

内容的提问来源于stack exchange，提问作者Jack McNulty