如何excle表格里面隔行插入相同内容的行

千问 · 2011-9-2 11:30:31

用VBA轻松实现。
笔我写代码：
Sub宏1()

DimnAsInteger\'起始行
DimlieAsInteger\'第几列

DimhangAsString

n=InputBox(\"例如输入1.\",\"请输入起始行号\")
lie=InputBox(\"例如F列则输入6.\",\"请输入做为停止标志的列号\")

DoWhileCells(n,lie)\"\"\'数据必须连续，有空白则程序停止

hang=ndefds123\":\"defds123n
Rows(hang).Select
Selection.Copy
Selection.InsertShift:=xlDown

n=n2
Loop
EndSub

我经过测试，瞬间完成！OK了

............张志晨：奉献知识，收获快乐.........

千问 · 2011-9-2 11:30:31

当然你要插入相同文字也是同样道理……表格行数不多的话，手工插入，很多行的话，只能用VBA做吧在需要的地方写，如：=B1设置字体颜色

千问 · 2011-9-2 11:30:31

以A列为例，在B2中输入=IF(B1=\"换成你要插入的内容\",A2,\"换成你要插入的内容\")

千问 · 2011-9-2 11:30:31

假定在sheet1中A1——B10有内容，要隔行插入，用inderict（）函数即可，方式如下：
1、在sheet1C1中输入=inderict(\"a\"defds123(row()-1)/21),D1中输入=inderict(\"b\"defds123(row()-1)/21),
2、选择C1-D2区域向下拖曳
3、看看结果！