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

上一篇： 创建包含指定数据的工作表的过程及代码解释 下一篇：excel教程：一首歌里的十个Excel问题

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。