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