你是意思是不是判断工作中早就在用的大行数
工一个每一行应该有数的列，参加是a列
excel2007及以上
n(sheet1).range(a1048576).end(xlup).row
excel2003
n(sheet1).range(a65536).end(xlup).row
在vba中,好象都肯定不会再象excel里面一样用
1.excel2003版的行是65536，列是256
2.excel2007版和2010版的行是1048576，列是16384
excel中，行与列是最基本的装载数据的信息
1.任何数据都应该在excel所能空间内的大的行数与列数的范围之内。
2.远远超出了行数和列数，诸如在vba编程中，要是远远超出了大行数，就会出错。
3.但实践应用中，再插入一行肯定不会错误。而且再插入一行的原理换算是将到最后一行删掉。
4.所以才要是之后一行是空的，就肯定不会程序出错。
5.但如果不是结果一行有内容，那你也会提示错误的。
直接输入用range对象的find方法，回rang对象，后再再取range对象的row属性或column属性前往行或列。要注意的是find方法肯定会返回nothing，要先检查看看，不然的话后程序出错。.例如:setcrange(a1:e10).find(abc
)ifnotcit'snothingthenr赶往行cl直接返回列endif或：setcrange(a1:e10).find(abc
)ifnotcit'snothingthenr回行cl前往列endif
subdd()dimi,ii
i
ii
msgbox(已建议使用行数:ichr(10)已不使用列数:ii)
endsub
