使用VBA从多个范围创建单个范围

Sub CreateSingleRangeFromMultipleRanges()
    Dim rng1 As Range, rng2 As Range, rng3 As Range, combinedRange As Range
    
    ' 定义多个范围
    Set rng1 = Range("A1:B5")
    Set rng2 = Range("C1:D5")
    Set rng3 = Range("E1:F5")
    
    ' 使用Union函数将多个范围合并成一个单一的范围
    Set combinedRange = Union(rng1, rng2, rng3)
    
    ' 在合并的范围中进行操作
    combinedRange.Select ' 选择合并的范围
    ' 进行其他操作，例如修改值、格式等
    
    ' 清除对象引用
    Set rng1 = Nothing
    Set rng2 = Nothing
    Set rng3 = Nothing
    Set combinedRange = Nothing
End Sub