如何自动定位工作表的空白行？

kejianjue

<P>请教各位：如何在一个已有数据的工作表中利用宏自动定位在原有数据的最后的第一个空白行，以继续加入新数据？</P>

[em03]

hzg7818

<P>有几种方法：</P><P>1、确定标志列，就是说关键字列，此列内容最好不能为空，而且在最后一行存在数据，比如a列，取得方法是range("a65536").end(xlup).row+1，这是最常用的方法，但有个弊病就是不能隐藏行，一旦最后一行数据处于隐藏位置，则取值不准确，实际这种情况并不多见，所以首推使用这种方法；</P><P>2、同样使用标志列，使用counta函数方法取值，这种方法可以克服上一种隐藏行取值错误的现象，但要求标志列不能出现空值。</P><P>application.worksheetfunction.counta(range("a:a"))</P><P>3、userrange.row+1，这种方法必须在第一行起存在数据，实践运用限制多多，不推荐使用</P><P>另外还有几种取值方法，但普遍不如第一种方法常用，暂不做介绍</P>