13 excel vba 多个区域选择 union range

一、程序执行结果如下图

二、代码如下

Option Explicit

Sub MultipleRange()
Dim r1, r2, myMultipleRange As Range
Set r1 = Sheets("Sheet1").Range("A1:B2")
Set r2 = Sheets("Sheet1").Range("C3:D4")
Set myMultipleRange = Union(r1, r2)
myMultipleRange.Font.Bold = True
myMultipleRange.Font.ColorIndex = 33
End Sub

注：来源于VBA 初学者教程 ExcelFans.com 制作