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

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

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

1.求活动工作表中已使用区域包含的行数：

Sub 包含的行数() MsgBox "包含的行数为：" & ActiveSheet.UsedRange.Rows.CountEnd Sub

2. 求活动工作表中已使用区域包含的列数：

Sub 包含的列数() MsgBox "包含的列数为：" & ActiveSheet.UsedRange.Columns.CountEnd Sub

3. 求活动工作表中已使用区域包含的单元格个数：

Sub 包含的单元格个数() MsgBox "包含的单元格个数为：" & ActiveSheet.UsedRange.Cells.CountEnd Sub

4. 求活动工作表中已使用区域第一列和最后一列列号：

Sub 首列和末列号() Dim Rng As Range Set Rng = ActiveSheet.UsedRange MsgBox "首列列号为：" & Rng.Cells(1).Column MsgBox "末列列号为：" & Rng.Cells(Rng.Cells.Count).ColumnEnd Sub

5.求活动工作表中已使用区域第一行和最后一行行号：

Sub 首行和末行号() Dim Rng As Range Set Rng = ActiveSheet.UsedRange MsgBox "首行行号为：" & Rng.Cells(1).Row MsgBox "末行行号为：" & Rng.Cells(Rng.Cells.Count).RowEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。