引用多个单元格区域

通过在两个或多个引用之间放置逗号，可使用 Range属性来引用多个单元格区域。下例清除了 Sheet1 上三个单元格区域的内容。

Sub ClearRanges()

Worksheets(\"Sheet1\").Range(\"C5:D9,G9:H16,B14:D18\"). _ ClearContents End Sub

命名区域使得用 Range属性处理多个单元格区域更为容易。下例可在三个命名区域处于同一工作表时运行。

Sub ClearNamed()

Range(\"MyRange, YourRange, HisRange\").ClearContents End Sub 使用 Union方法

用 Union方法可将多个单元格区域组合到一个 Range对象中。下例创建了名为myMultipleRange 的 Range对象，并将其定义为单元格区域 A1:B2 和 C3:D4 的组合，然后将该组合区域的字体设置为加粗。

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 End Sub 使用 Areas属性

可用 Areas属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目，如果有多个块，就显示一则警告消息。

Sub FindMultiple()

If Selection.Areas.Count > 1 Then

MsgBox \"Cannot do this to a multiple selection.\" End If End Sub

上页：Excel VBA教程：引用多张工作表 下页：Excel VBA教程：引用命名区域 Excel VBA教程：引用多个单元格区域 Excel VBA教程：引用命名区域

Excel VBA教程：引用行和列

Excel VBA教程：按索引编号引用工作表Excel VBA教程：返回集合中的对象Excel VBA教程：选定和激活单元格Excel VBA教程：设置控件属性

Excel VBA教程：按名称引用工作表

Excel VBA教程：将文档保存为 Web 页

Excel VBA教程：代码运行时使用控件值

Excel VBA教程：在工作表上使用 ActiveX 控

件

Excel VBA教程：Application对象事件的用

法

Excel VBA教程：嵌入图表事件的用法

Excel VBA教程：在文档中使用 ActiveX 控Excel VBA教程：使用 Microsoft Excel对

件象事件的方法

Excel VBA教程：在窗体上使用 Microsoft Excel VBA教程：QueryTable对象事件的用

Office Web 组件法

Excel VBA教程：在 Visual Basic 中使用 Microsoft Excel 工作表函数

Excel VBA教程：工作簿对象事件

Excel VBA教程：处理三维区域 Excel VBA教程：处理图形（绘图对象）

Feiesoft.com - VBA教程 - Excel VBA教程 - 引用多个单元格区域