一个EXCEL表,两千多行,我想每隔五行就插入一新行,并在新行中插入相同的文字,哪位大哥帮忙遍个程序啊

来源:百度知道 编辑:UC知道 时间:2024/05/27 14:16:48
一个EXCEL表,两千多行,我想每隔五行就插入一新行,并在新行中插入相同的文字,哪位大哥帮忙遍个程序啊

这个可以通过编写一个EXCEL 的宏命令来实现,
我试验了一下,已通过测试,
假定你的EXCEL有2500多行,从第0行到第2500行,每隔5行插入一行, 其内容为"内容试验",则代码如下:

Sub a()

For i = 2500 To 0 Step -5
StrRowName = CStr(i) & ":" & CStr(i)
Rows(StrRowName).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & CStr(i)).Value = "内容试验"
Next i

End Sub

在你的Excel中按Alt+F11,
Copy 上面的代码到窗口
再按F5执行这个宏,效果马上出来,你可试试

如若仍不清楚,请在百度上发短信问我,或发到我的邮箱pebsi@qq.com

这个好象不行的 我以前和好多用EXCEL的人问过,好象都说不行
但不是绝对的不行 有哪个高手会
我愿学习

ctrl+c
ctrl+V

我到是有个方法,但不是编程,我也不会编程,不知道你想不想用吗?

有个比较简单的方法:
1、在工作表中插入两列;
2、在第一列输入序号,在第二列第4行输入一个数字;
3、选中第二列第一行至第四行,然后将单元格向下填充至最后一行;
4、选中第二列,然后ctrl+g 定位,在定位条件中单选数字,点击确定;
5、对选中的单元格点击右键插入整行,好了,这样就在每第五行插入了一个空白行;
6、对第二列进行排序,在空白行内输入要输入的数据;
7、对第一行进行排序,OK整张表就搞定了!

可以这么处理首先在表格前加一列并做序号