range是一种计算机术语，在Excel中，R后据ange集合耐宣批代表某一单元格、某一行、某一列、某一选定区域(该区域可包含一个或若干连续单元格区域)，或者某一三维区域。可用 Range(金arg)(其中 arg 为区域名称)来返回代表单个单元格或单元格区域的 Range 对象。另外有同名汽车。

• 外文名称 range
• 代表 某一单元格、某一行
• 方法 Union 方法
• 属性 Cells 属性

　　range() 函数创建并返回一个包含指定范围的元素主酷迎的数组。使用格式为range(first,second,step)，该函数创建一个数组，包含从 来自first 到 second (包含 first 和 second)之间的整数或字啊容茶将运符。如果 second 比 first 小，则返回反序陆光略亮的数组。

Range 属性

　　可用 Range(arg)(其中 arg 为区域名称)来返回代表单个单元格或单元格区域的朵她棵巩 Range 对象。下例将单元格 A1 中的值赋给单元格 A5。

　　W皮待停茶orksheets("Sheet1")少传.Range("A5").Value = Worksheets("Sheet1").Range("A1").Value

　　下例设置单元格区域 A1:H8 中每个单元格的公式，用随机数填充该区域。在没有对象识别符(句号左边的对象)的情况下，使用 Range 属性将返回活动表上的一个区域。如果活动表不是工作货表，则该方法无效。在没有明确的对象识别符的情况下轮管田文概它象感，使用 Range 属性之前，可用 Activate 方法来激活工作表。

　　Worksheets("Sheet1")书团侵娘程略伤容短顺.Activate

　　Range("A1:H8").Formula = "=Rand()" 'Range is on the active sheet

　　下例清除区域 Criteria 中的内容。

　　Worksheets列负以突更着⑴.Range("Criteria").ClearContents

　　如果用文本参数指定区域地址，必须以 A1 样式记号指定该地址凝体(不能用 R1C1 样露早生振燃式记号)。

Cells 属性

　　可用 Cells(row,column)(其中 row 为行号，column 为列标)返回单个单元格。下例将单元格 A1 赋值为 24。

　　Worksheets⑴.Cell师s(1,1).Value = 24

　　下例设置单元格 A2 的公式。

　　ActiveSheet.Cells(2,1).Formula = "=Sum(B1:B5)"

　　虽然也可用 Range("A1") 返回单元格页翻浆 A1，风带鱼条制坐束已集但有时用 Cells 属性更为方便，因为对行或列使用变量。下例在 Sheet1 上创建行号和列标。注意，当肥伯备甚衡放光成工作表激活以后，使用 Cells 属性时不必明确声明工作表(它将返回活动工作表上的单元格)。

　　Sub SetUpTable()

　　Worksheets("Sheet1").Activate

　　For TheYear = 1 To 5

　　Cells(1,TheYear + 1).Value = 1990 + TheYear

　　Next TheYear

　　For TheQuarter = 1 To 4

　　Cells(TheQuarter + 1,1).Value = "Q" & TheQuarter

　　Next TheQuarter

　　End Sub

　　虽然可用 Visual Basic 字符串函数转换 A1 样式引用，但使用 Cells(1,1) 记号更为简便(而且也是更低坚若计克简决影衡村利好的编程习惯)。

　　可用 expression.Cells(row,column) 返回区域中的一火问细部分，其中 expressi助虽题得on 是返回 Ran丰翻机孩效城ge 对象的表达式，row 和 column 为相对寻阿榆于该辩请棕匙区域左上角的偏移量。下例设置单元格 C5 中的公式状地孙齐亲先。

　　Worksheets⑴.Range("C5:C10").Cells(1,1).Formula = "=Rand()"

Range 和 Cells

　　来自可用 Range(cell1,cell2) 返回一个 Range 对象，其中 cell1 和 cell2 为指定起始和终止位置的 Range 对象。下例设置单元格区域 A1:J10 的边框线条的样式。

　　With Work360百科sheets⑴

　　.Range(.Cells(1,1)，.Cells(10,10)).Borders.Line字把宁具束微Style = xlThick

　　End With

　　注意每个 Cells 属性之前的句点。如果前导的 With 语句应用于该 Cells 属性，那么这些句点就是必需的。本席片身案情示例中，句点指示单元格处于第一张工作表立者考口上。如果没有句点，C刘界句杨团假敌象统种ells 属性将返回活动工作表底终培制更觉缩伟上的单元格。

Offset 属性

　　可留研孩去官用 Offset(row,co练问lumn)(其中 row 和 column 为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且来迅向右一列处的单元格。由于必须选定位于活动工作表上的单元探验少格，因此必须先激活工作表。

　　Work团批sheets("S故heet1").A状们振王让攻损ctivate

　　'Can't select unless the sheet is active

　　Selection.Offset(3,1).Range("A1").Select

Union 方法

　　可用 Union(range1,range2,...) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由式没改其春浓额仅进随是单元格区域 A1:B2 和 C3:D4 组合定义的对象，然后选定该定义区域。

　　Dim r1 As Range,r2 As Rang投次收团广防粉兰e,myMultiAreaR陈足杨三括ange As Range

　　Worksheets("sheet1").Activate

　　Set r1 = Range("A1:B2")

　　Set r2 走每处已的长= Range("C3:D4")

　　Set myMultiAreaRange = Union(r1放住坏扬而搞船配属件,r2)

　　myMulti说取状分AreaRange.Select

　　使用包含若干块的选定区扬域时，Areas 属性很有用。它将一个多块选定区域分割为单个的 Range 对象，然后将这些对象作为一个集合返回。使用返回的集合的 Count 属性可检测一个选定区域是否包含多块区域，如下例所示。

　　Sub NoMultiAreaSelection()

　　NumberOfSelectedAreas = Selection.Areas.Count

　　If NumberOfSelectedAreas > 1 Then

　　MsgBox "You cannot carry out this command " & _

　　"on multi-area selections"

　　End If

　　End Sub

举例

　　例子 1

　　输出:

　　Array ([0] => 0 [1] => 1 [2] => 2 [3] => 3 [4] => 4 [5] == 5)

　　例子 2

　　输出:

　　例子 3

　　输出: