如何在VBA中使用Cells()实现Ctrl键多选单元格区域功能？

• 直接用Range(Range(Cells(x,y),Cells(x,y+3)),Range(Cells(x+1,y),Cells(x+1,y+3)))会选中连续大区域，因为这种写法会自动合并相邻区域，不符合多独立区域的选中需求。

• 正确实现要用到Union函数，但需注意两个核心点：

  • 每个区域必须是独立的合法Range对象
  • 必须明确指定工作表，避免因ActiveSheet切换导致的引用错误

示例代码：

Sub SelectMultipleIndependentAreas()
    Dim targetSheet As Worksheet
    Dim rowNum As Integer, colNum As Integer
    Dim area1 As Range, area2 As Range
    
    ' 指定操作的工作表，替换为你的目标表名
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    rowNum = 2 ' 自定义起始行
    colNum = 3 ' 自定义起始列
    
    ' 定义两个独立单元格区域
    Set area1 = targetSheet.Range(targetSheet.Cells(rowNum, colNum), targetSheet.Cells(rowNum, colNum + 3))
    Set area2 = targetSheet.Range(targetSheet.Cells(rowNum + 1, colNum), targetSheet.Cells(rowNum + 1, colNum + 3))
    
    ' 合并并选中多个独立区域
    Union(area1, area2).Select
End Sub

• 扩展说明：如果需要选中更多独立区域，直接在Union函数中追加更多Range对象即可，比如Union(area1, area2, area3).Select。

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