如何在Excel VBA中从A1:B5排除A2:B2并保存为可用Range？

原代码存在两个核心问题：

• 仅截取了A3:B5区域，完全漏掉了A1:B1，根本没实现"排除A2:B2保留其余区域"的需求
• 直接给C1赋值newRng只会返回该Range的左上角单元格值，没法验证newRng是否正确存储了目标区域

要实现从A1:B5排除A2:B2并保存为Range对象，需要用Union函数把A1:B1和A3:B5这两个不连续区域合并成一个Range对象，代码如下：

Sub ExcludeRange()
    Dim rngFull As Range
    Dim rngPart1 As Range
    Dim rngPart2 As Range
    Dim newRng As Range
    
    ' 定义完整区域和要保留的两个子区域
    Set rngFull = Sheets("Sheet1").Range("A1:B5")
    Set rngPart1 = Sheets("Sheet1").Range("A1:B1") ' 排除A2:B2后上方的区域
    Set rngPart2 = Sheets("Sheet1").Range("A3:B5") ' 排除A2:B2后下方的区域
    
    ' 合并两个子区域为一个Range对象
    Set newRng = Union(rngPart1, rngPart2)
    
    ' 验证方式1：选中合并后的区域，直观查看
    newRng.Select
    
    ' 验证方式2：将合并区域的地址写入单元格，确认范围
    Sheets("Sheet1").Range("C1").Value = newRng.Address
End Sub

代码说明 #

• Union函数专门用于合并多个不连续的Range，返回一个包含所有目标单元格的Range对象
• 用Select可以直接在工作表中看到选中的区域，快速验证是否符合需求
• 写入newRng.Address到单元格能看到合并区域的完整地址（比如$A$1:$B$1,$A$3:$B$5），确认范围正确

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