4.5.7.2 使用Union方法将多个单元格区域组合

2015年09月17日 10:48
   用Union方法可将多个单元格区域组合到一个Range对象中.下例创建了名为     myMultipleRange的Range对象.并将其定义为单元格区域AI:B2和C3:D4的组合，然后将该     组合区域的字体设置为加粗:     Sub MultipleRange()     Dim rl, r2, myMultipleRange As Range     Set rl一Sheets("Sheetl").Range("A1:B2"     Set r2一Sheets("Sheetl一).Range("C3:D4"     Set myMultipleRange一Union(rl, r2)     myMultipleRange.Font.Bold.True     End Sub