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

  1. 获取当前excel的所有sheet以及sheet名
vbnet 复制代码
Sub test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        Debug.Print ws.Name
    Next ws
End Sub
输出结果:
Sheet1
Sheet2
Sheet3
Sheet4
Sheet5

2.获取最大行数

首先要明白取最大行的方式,为什么这样取

正常来说ctrl+下箭头,能够获得最大行,但是如果中间有空行就不好用了,所以大家都是反着来,取得是从1048576开始ctrl+上箭头所得到的行数就是最大行

vbnet 复制代码
Sub test()
    Dim lastrow As Long
    lastrow = Worksheets("Sheet5").Cells(Rows.Count, 1).End(xlUp).Row
    Debug.Print lastrow
End Sub
执行结果:
 16 

3.获取最大列数

vbnet 复制代码
Sub test()
    Dim lastcolumn As Long
    lastcolumn = Worksheets("Sheet5").Cells(1, Columns.Count).End(xlToLeft).Column
    Debug.Print lastcolumn
End Sub
执行结果:
6
相关推荐
葡萄城技术团队17 小时前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
侃侃_天下2 天前
最终的信号类
开发语言·c++·算法
echoarts2 天前
Rayon Rust中的数据并行库入门教程
开发语言·其他·算法·rust
Aomnitrix2 天前
知识管理新范式——cpolar+Wiki.js打造企业级分布式知识库
开发语言·javascript·分布式
每天回答3个问题2 天前
UE5C++编译遇到MSB3073
开发语言·c++·ue5
伍哥的传说2 天前
Vite Plugin PWA – 零配置构建现代渐进式Web应用
开发语言·前端·javascript·web app·pwa·service worker·workbox
小莞尔2 天前
【51单片机】【protues仿真】 基于51单片机八路抢答器系统
c语言·开发语言·单片机·嵌入式硬件·51单片机
QQ3596773452 天前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
我是菜鸟0713号2 天前
Qt 中 OPC UA 通讯实战
开发语言·qt
JCBP_2 天前
QT(4)
开发语言·汇编·c++·qt·算法