1、首先我们需要打开一个Excel表格;
2、然后需要在单元格中输入1;
3、然后点击开始菜单栏下的“填充”;
4、再点击下拉列表中的“系列”;
5、接下来会d出一个对话框,勾选“列”,在终止值输入1000,然后点击确定;
6、这样就能一秒填充1-1000序列了。
For i = 2 To Range("e65536").End(xlUp).Row '循环E列内容Cells(i + m, 3) = Cells(i + m, 4) 'D列内容填入C列
For y = 1 To Cells(i + m, 5) - 1 '循环插入
Rows(i + m &":" &i + m).Select '选择位置
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '插入
Cells(i + m, 3) = Cells(i + m + 1, 4) 'D列内容填入C列
Cells(i + m, 1) = Cells(i + m + 1, 1)
Cells(i + m, 2) = Cells(i + m + 1, 2)
m = m + 1 '因为插入了行,循环到的位置要+1
Next y
Next i
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)