excel自动填内容问题

silenceboy

我写了个小程序，主要有以下功能：

1、先用在CAD中用GETPOINT函数获取两点，再计算两点间的距离

2、在GETPOINT中设置关键字，当关键字输入为“O”时结束获取点

3、弹出一个对话，手动输入一些参数，主要是输入一些人为设置的内容、 一条线具有:编号、长度(根据1项计算自动显示出来)、余量等属性

4、输入完成后，将这些内容自动输出到excel.并要，先判断excel中有没有使用了的行，如果有，则从没使用的第一个行增加数据，如果没有则从第一行增加数据

5、不断一重复前四项

前3项都没有问题，第4项使用了me.usedrange.rows.count获取已经使用的行数，在整个循环中总是不能正常获取已经使用的行数，通过监测，发现该值一直是1

但当手动填入几行数据，单独使用me.usedrange.rows.count则显示正常结果。

请高手结些提示。最好给一段代码

StartMe

获取最末行用ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

silenceboy

谢谢，回去试一下