Excel VBA教程:引用多个单元格区域

使用适当的方法可以很容易地同时引用多个单元格区域。可用 Range 和 Union方法引用任意组合的单元格区域;用 Areas属性可引用工作表上选定的一组单元格区域。

使用 Range属性

通过在两个或多个引用之间放置逗号,可使用 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教程:将文档保存为 Web 页
Excel VBA教程:选定和激活单元格 Excel VBA教程:代码运行时使用控件值
Excel VBA教程:设置控件属性 Excel VBA教程:在工作表上使用 ActiveX 控件
Excel VBA教程:Application对象事件的用法 Excel VBA教程:嵌入图表事件的用法
Excel VBA教程:在文档中使用 ActiveX 控件 Excel VBA教程:使用 Microsoft Excel对象事件的方法
Excel VBA教程:在窗体上使用 Microsoft Office Web 组件 Excel VBA教程:QueryTable对象事件的用法
Excel VBA教程:在 Visual Basic 中使用 Microsoft Excel 工作表函数 Excel VBA教程:工作簿对象事件
Excel VBA教程:处理三维区域 Excel VBA教程:处理图形(绘图对象)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号