CurrentRegion 属性
返回一个 Range 对象,该对象表示当前区域,只读
当前区域是以空行与空列的组合为边界的区域。
说明:
该属性对于许多自动展开选择以包括整个当前区域的操作很有用,如 AutoFormat 方法。
该属性不能用于被保护的工作表。
示例:
Dim str$
If ActiveSheet.ProtectContents Then
str = '当前工作表被保护了,无法使用 CurrentRegion 属性'
Else
str = 'A1单元格所在的单元格区域地址为:' & Range('a1').CurrentRegion.Address
End If
MsgBox str
End 属性
返回一个 Range 对象,该对象代表包含源区域的区域尾端的单元格。
等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键,只读。
语法:End(Direction)
Direction 必选 XlDirection 所要移至的方向。
xlDown -4121 向下。
xlToLeft -4159 向左。
xlToRight -4161 向右。
xlUp -4162 向上。
示例:
With Range('a1')
Debug.Print .End(xlDown).Row
Debug.Print .End(xlToRight).Column
End With
With Cells(Rows.Count, Columns.Count)
Debug.Print .End(xlUp).Row
Debug.Print .End(xlToLeft).Column
End With
Offset 属性
返回 Range 对象,它代表位于指定单元格区域的一定的偏移量位置上的区域。
语法:Offset(RowOffset, ColumnOffset)
RowOffset 可选,区域偏移的行数(正数、负数或 0(零))。
正数表示向下偏移,负数表示向上偏移。默认值是 0。
ColumnOffset 可选,区域偏移的列数(正数、负数或 0(零))。
正数表示向右偏移,负数表示向左偏移。默认值是 0。
示例:
With [a1]
Debug.Print .Offset(, 3).Address
Debug.Print .Offset(1).Address
Debug.Print .Offset(5, 6).Offset(-5, -6).Address
Debug.Print .Offset.Address
'Debug.Print .Offset(-1, -1).Address
'注意边界在偏移时超出单元格区域范围
End With
With [c3:d9]
Debug.Print .Offset(3).Address
Debug.Print .Offset(1).Address
Debug.Print .Offset(-2, -1).Address
End With
Resize 属性
调整指定区域的大小,返回 Range 对象,该对象代表调整后的区域。
语法:Resize(RowSize, ColumnSize)
RowSize 可选,新区域中的行数。如果省略该参数,则该区域中的行数保持不变。
ColumnSize 可选,新区域中的列数。如果省略该参数。则该区域中的列数保持不变。
示例:
With [d9:H15]
Debug.Print .Resize(1).Address
Debug.Print .Resize(, 3).Address
Debug.Print .Resize(1, 3).Address
'Debug.Print .Resize(-1, -3).Address
'参数不能为负数
End With
Count 属性
返回一个 Long 值,它代表集合中对象的数量。
示例:
MsgBox [a1:c3].Count
MsgBox [a1:c3,e5:h6,l8:o9].Count
[a1:c3,e5:h6,l8:o9].Interior.ColorIndex = 3
MergeArea 属性
返回一个 Range 对象,该对象代表包含指定单元格的合并区域。
如果指定的单元格不在合并区域内,则该属性返回指定的单元格。
MergeArea 属性只应用于单个单元格区域。
示例:
2013-12-24 14:14 上传
下载附件 (1.54 KB)
上图中A1,D2,B3为合并单元格
MsgBoxRange('a1').MergeArea.Address
MsgBoxRange('b1').MergeArea.Count
MsgBoxRange('c1').MergeArea.Address
'MsgBox Range('a1:b1').MergeArea.Addres
MergeCells 属性
如果区域包含合并单元格,则为 True,可读写。
说明:
选定包含合并单元格的区域时,所选定的区域可能与所期望选定的区域不同。
使用 Address 属性检验选定区域的地址。
示例:
Dim rg As Range
For Each rg In [a1:d5]
If rg.MergeCells Then
Debug.Print rg.Address
End If
Next
联系客服