Excel Home
全球知名的Excel资源网站之一

应用Range对象的UsedRange属性解决问题

本文为《别怕,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

赞(3)
未经允许不得转载:ExcelHome » 应用Range对象的UsedRange属性解决问题
分享到: 更多 (0)

关于我们联系我们
本站特聘法律顾问:李志群律师   沪ICP备11019229号-2

沪公网安备 31011702000001号

征信