Range在excel中起什么作用
2017-11-13
range()函数创建并返回一个包含指定范围的元素的数组。编辑本段Range集合用法
本部分将说明下列返回Range对象的属性和方法：Range属性Cells属性Range和CellsOffset属性Union方法
Range属性
可用Range(arg)（其中arg为区域名称）来返回代表单个单元格或单元格区域的Range对象。下例将单元格A1中的值赋给单元格A5。Worksheets("Sheet1").Range("A5").Value=Worksheets("Sheet1").
Range("A1").Value下例设置单元格区域A1:H8中每个单元格的公式，用随机数填充该区域。在没有对象识别符（句号左边的对象）的情况下，使用Range属性将返回活动表上的一个区域。
如果活动表不是工作表，则该方法无效。在没有明确的对象识别符的情况下，使用Range属性之前，可用Activate方法来激活工作表。Worksheets("Sheet1").ActivateRange("A1:H8").
Formula="=Rand()"'Rangeisontheactivesheet下例清除区域Criteria中的内容。Worksheets(1).Range("Criteria").ClearContents如果用文本参数指定区域地址，必须以A1样式记号指定该地址（不能用R1C1样式记号）。
Cells属性
可用Cells(row,column)（其中row为行号，column为列标）返回单个单元格。下例将单元格A1赋值为24。Worksheets(1).Cells(1,1).Value=24下例设置单元格A2的公式。
ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)"虽然也可用Range("A1")返回单元格A1，但有时用Cells属性更为方便，因为对行或列使用变量。下例在Sheet1上创建行号和列标。
注意，当工作表激活以后，使用Cells属性时不必明确声明工作表（它将返回活动工作表上的单元格）。SubSetUpTable()Worksheets("Sheet1").ActivateForTheYear=1To5Cells(1,TheYear+1).
Value=1990+TheYearNextTheYearForTheQuarter=1To4Cells(TheQuarter+1,1).Value="Q"&TheQuarterNextTheQuarterEndSub虽然可用VisualBasic字符串函数转换A1样式引用，但使用Cells(1,1)记号更为简便（而且也是更好的编程习惯）。
可用expression.Cells(row,column)返回区域中的一部分，其中expression是返回Range对象的表达式，row和column为相对于该区域左上角的偏移量。下例设置单元格C5中的公式。Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"
Range和Cell
可用Range(cell1,cell2)返回一个Range对象，其中cell1和cell2为指定起始和终止位置的Range对象。下例设置单元格区域A1:J10的边框线条的样式。
WithWorksheets(1).Range(.Cells(1,1),.Cells(10,10)).Borders.LineStyle=xlThickEndWith注意每个Cells属性之前的句点。如果前导的With语句应用于该Cells属性，那么这些句点就是必需的。本示例中，句点指示单元格处于第一张工作表上。如果没有句点，Cells属性将返回活动工作表上的单元格。
Offset属性
可用Offset(row,column)（其中row和column为行偏移量和列偏移量）返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且向右一列处的单元格。
由于必须选定位于活动工作表上的单元格，因此必须先激活工作表。Worksheets("Sheet1").Activate'Can'tselectunlessthesheetisactiveSelection.Offset(3,1).Range("A1").Select
Union方法
可用Union(range1,range2,...)返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域A1:B2和C3:D4组合定义的对象，然后选定该定义区域。
Dimr1AsRange,r2AsRange,myMultiAreaRangeAsRangeWorksheets("sheet1").ActivateSetr1=Range("A1:B2")Setr2=Range("C3:D4")SetmyMultiAreaRange=Union(r1,r2)myMultiAreaRange.
Select使用包含若干块的选定区域时，Areas属性很有用。它将一个多块选定区域分割为单个的Range对象，然后将这些对象作为一个集合返回。使用返回的集合的Count属性可检测一个选定区域是否包含多块区域，如下例所示。
SubNoMultiAreaSelection()NumberOfSelectedAreas=Selection.Areas.CountIfNumberOfSelectedAreas>1ThenMsgBox"Youcannotcarryoutthiscommand"&_"onmulti-areaselections"EndIfEndSub
编辑本段Excel中的Range属性
返回一个Range对象，该对象代表一个单元格或单元格区域。
语法：
expression.Range(Cell1,Cell2)
参数说明：
expression必需。该表达式返回上面的对象之一。Cell1Variant类型，必需。区域名称。必须为A1样式引用的宏语言。可包括区域操作符（冒号）、相交区域操作符（空格）或合并区域操作符（逗号）。
也可包括货币符号，但它们被忽略掉。可在区域中任一部分使用局部定义名称。如果使用名称，则假定该名称使用的是宏语言。Cell2Variant类型，可选。区域左上角和右下角的画册设计单元格。可以是一个包含单个单元格、整列或整行的Range对象，或是一个用宏语言为单个单元格命名的字符串。
