EXCEL VBA 插入指定数量的行

依次读取excel文件中的一列数值，如从A1到A100；

依次根据读取得到的数值，在该行下插入等值数字的行数，并读取下一条数据，即：

若A1 = 2，则在A1下插入2行；读取A2，但此时原A2应该已经变成了A4，因为已经插入了2行；

A2=5，则A4(原A2）行下，再插入5行...........

直到表格行结束（行数未知）。


求教各位大侠~~~~~~~~~~~~~~~应该怎么编阿。小弟对VB完全不懂。 多学习一下吧，给你一个代码，你修改一下就可以了。
http://download.csdn.net/source/2341786 你应该要先将 A1-A100 的值读出, 存进数组变量 TmpStr(1)---TmpStr(100)

然后再用 For循环读取数组内容,

再一一的重整Excell表格内容

for i=lbound(tmpstr) to ubound(tmpstr)
赋值给Excell
next i 呵呵, 以前我也遇到这样的问题

我解决的办法就是从最后一行开始操作, 这样前面的所有行, 都不影响, 不过你说 行数未知 是啥意思, 一般操作Excel 都可以得到行数的啊? 
ActivateSheet.UsedRange.Rows.Count 这个虽然有点不准确

你要么这样增加一个 RowIndex 行数计数器, 老老实实的自己加, 这个代码不难, 很基本的 本帖最后由 bcrun 于 2011-01-04 10:21:35 编辑 上面是插入一次的循环，以此类推

补充：VB ,  基础类