excel如何插入不同的自定义行数

来源：百度知道 编辑：UC知道 时间：2024/05/25 03:57:31
我要把EXCLE导入ACCESS做看板
但是要求没个看板的数量不同
所以现在正在每一行插入不同的行数再复制成相同内容
比如：
第一行的数据是
AAAA BBBB CCCCCCC 需要插入3行
我就得插入3个空行再复制
AAAA BBBB CCCCCCC
AAAA BBBB CCCCCCC
AAAA BBBB CCCCCCC
然后第二行是
DDDDD EEEE GGGGGGGGGGG 需要插入2行
就得插入2个空行再复制
DDDDD EEEE GGGGGGGGGGG
DDDDD EEEE GGGGGGGGGGG

不知我表达的清楚没有，有没有方法就在后面输入数字，就自动插入该数字的行数，能插入相应的内容就更好了
数据库较大
工作量太令人崩溃了
哪位高手能帮帮忙给个意见
谢谢
1楼的意思差不多
就是根据最后一列输入我所需要的该行数据N
就在该行下面复制N行
如果再能在倒数第二列能标注N的编码就更好了
即
1 N
2 N
3 N
4 N
.
.
.
N N

你的意思是有4列数据，要根据某行第4列的数值将该行内容复制N行？

根据你的描述，写了一段vba。你可以根据实际对其进行修改。
代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行得到结果。
===============================================================

Sub 复制记录()
Sheets.Add '插入一个工作表用来获取结果
With Sheets("原始数据表") '假设原数据存放在工作表“原始数据表”中，如果不是请按实际修改
t = 2 '假设数据从第2行开始
For r = 2 To .[A65536].End(xlUp).Row '从第2行一直读取到A列最后一个数据所在行
x = .Cells(r, 4) '将该行第4列的数据读入变量
.Range(.Cells(r, 1), .Cells(r, 4)).Copy Range(Cells(t, 1), Cells(t + x - 1, 1)) '将该行数据复制x行
t = t + x '修改下一条记录的起始位置
Next
End With

[D:D].Insert Shift:=xlToRight '在D列前插入一列，用以增加你需要的序号。
Range(Cells(2, 4), Cells(t - 1, 4)).Select

With Selection
.FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C+1,1)" '在该区域填充公式产生序号
.Copy
.PasteSpecial Paste:=xlPasteValue