(十四)VBA常用基础知识：当前excel文件所有sheet循环，获取sheet名,获取最大行数最大列数

Sub test()Dim ws As WorksheetFor Each ws In Worksheetsws.ActivateDebug.Print ws.NameNext ws
End Sub
输出结果：
Sheet1
Sheet2
Sheet3
Sheet4
Sheet5

2.获取最大行数
首先要明白取最大行的方式，为什么这样取
正常来说ctrl+下箭头，能够获得最大行，但是如果中间有空行就不好用了，所以大家都是反着来，取得是从1048576开始ctrl+上箭头所得到的行数就是最大行
在这里插入图片描述

Sub test()Dim lastrow As Longlastrow = Worksheets("Sheet5").Cells(Rows.Count, 1).End(xlUp).RowDebug.Print lastrow
End Sub
执行结果：16

3.获取最大列数

Sub test()Dim lastcolumn As Longlastcolumn = Worksheets("Sheet5").Cells(1, Columns.Count).End(xlToLeft).ColumnDebug.Print lastcolumn
End Sub
执行结果：
6

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/102935.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！