方法value作用于对象range时失败_VBA编程知识点（14）——Range

VBA编程知识点（14）——Range

学习自杨洋老师《全民一起VBA》

Application.Union方法

把多个Range范围联合到一起，作为一个新的range对象返回。

代码示例，set a=Union(r1 , r2 , r3)，三个对象合成一个，赋值给a。

Application.Intersect方法

找到多个range的重叠部分，作为一个新的range返回。代码示例，set a=Intersect(r1 , r2 , r3)

Range.CurrentRegion属性

返回一个包含该range的最大连续使用区域，也是一个range。该区域与其他任何已使用单元格都不邻接。

代码示例，把含有“China”的单元格的最大连续使用区域涂色。

dim r1 as range
For Each r1 In ActiveSheet.UsedRange
	If r1.Value = “china” Then
	r1.CurrentRegion.Interior.Color = RGB(25,45,78)
	End If
next

Range.Resize(x,y)属性

返回一个从原range对象的左上角开始的，x行y列的，新的range。它不会改变原range，x,y必须于大。

代码示例：把r1的左上角单元格涂色。

dim r1 as range
r1.Resize(1,1).Interior.Color = RGB(25,45,78)
（与r1.Cells(1,1)与r1.Resize(1,1)等效）

Range.Offset(x,y)属性

按照原range的大小，根据指定的距离平行移动，从而得到一个新的同样形状的range。它不会改变原range，x,y可以是0，是负整数（向左向上偏移），是正整数（向下向右偏移）

ActtiveSheet.Rows / Range.Rows

ActtiveSheet.Rows(8) 指工作表的第8行

ActtiveSheet.Rows(“8:12”) 指工作表的第8到12行

Range.Rows(8) 指某range的第8行

Range.Sheet.Rows(“8:12”) 指某range的第8到12行

ActtiveSheet.Columns / Range.Columns

与Rows属性类似