[已解决]用VBA计算EXCEL中行数列数

vbyou126 · 发表于 2015-6-13 08:40

提示: 作者被禁止或删除内容自动屏蔽

殿堂之上 · 发表于 2015-6-13 09:51

本帖最后由殿堂之上于 2015-6-13 09:53 编辑

Sub ahhhh()
a = Range("a1").CurrentRegion.Rows.Count
b = Range("a1").CurrentRegion.Columns.Count 'ab两个要连续区才算的准
h = Cells(Rows.Count, 1).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column ’hc两个要选最多行
sf = UsedRange.Rows.Count
End Sub

		自动登录	找回密码
密码			注册

vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡	发表于 2015-6-13 08:40 \| 显示全部楼层 \|阅读模式工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡
	工作中最常用的函数公式，全印在一张超大的鼠标垫上