标题有8列，ubound却有20例，怎么得到正确结果？

ylj518

请大家指点！

sdytsxd991122

把后面的数列删除一下

ylj518

我知道删除会解决，但多个这样的表，不删怎么得到正确结果？

quqiyuan

改一下，仅供参考。。。

ykcbf1100

有这一句就够了，这是工作表最大非空列号：c = .UsedRange.Find("*", , -4163, , 2, 2).column

ylj518

quqiyuan谢谢！

lss001

Sub test()
Dim arr, i&, j&, m&, n&

'使用CurrentRegion属性方法
With Sheet1.Cells(1).CurrentRegion
     m = .End(-4161).Column
     n = .End(-4121).Row
     arr = .Range(Cells(1), Cells(n, m))
End With

MsgBox "共有" & m & "列" & n & "行"
End Sub

taller

选中任意非空单元格，按<Ctrl+A>选中的单元格区域（A1:S5）即为 CurrentRegion ，代码执行结果为19，不知道为啥你的电脑运行结果为20。

其原因在于I2：S2单元格字体发生了变化，不是你工作表的默认字体，虽然单元格内容为空，那么也被当作已经使用的单元格。

朝露孤烟

我的初浅学习理解。