VBA: 同时选中多个不相邻的单元格区域

Set obj_range = Range("D4:E5,G4:H5")

Set obj_range = Union(Range("D4:E5"), Range("G4:H5"))

Option Explicit

Sub SelectDisContinous():

    '已知目标区域的情况下，选中不连续的多个区域
    Dim obj_range As Range
    
    '方法1：Set obj_range = Range("D4:E5,G4:H5")   '方法2：
    Set obj_range = Union(Range("D4:E5"), Range("G4:H5"))
    
    obj_range.Interior.ColorIndex = 22

End Sub

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