Excel教程：应用Range对象的UsedRange属性解决问题
发布时间: 2022-03-11
来源: 网络
编辑: word12345.com
阅读: 0
关键词:
Excel教程
本文为《别怕，Excel VBA其实特别简单（第3版）》随书问题参考答案
1.求活动工作表中已使用区域包含的行数：
Sub 包含的行数()
MsgBox "包含的行数为：" & ActiveSheet.UsedRange.Rows.Count
End Sub
2. 求活动工作表中已使用区域包含的列数：
Sub 包含的列数()
MsgBox "包含的列数为：" & ActiveSheet.UsedRange.Columns.Count
End Sub
3. 求活动工作表中已使用区域包含的单元格个数：
Sub 包含的单元格个数()
MsgBox "包含的单元格个数为：" & ActiveSheet.UsedRange.Cells.Count
End Sub
4. 求活动工作表中已使用区域第一列和最后一列列号：
Sub 首列和末列号()
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
MsgBox "首列列号为：" & Rng.Cells(1).Column
MsgBox "末列列号为：" & Rng.Cells(Rng.Cells.Count).Column
End Sub
5.求活动工作表中已使用区域第一行和最后一行行号：
Sub 首行和末行号()
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
MsgBox "首行行号为：" & Rng.Cells(1).Row
MsgBox "末行行号为：" & Rng.Cells(Rng.Cells.Count).Row
End Sub