[已解决]求助：隔行插入，且复制某一单元格的内容到新行

善良的人类

最好能用VBA实现以下功能：
在打开Excel的时候能弹出一个对话框，可提供操作者输入3个值：
1、从第几行开始执行隔行插入
2、总共执行多少次的隔行插入
3、要复制的单元格是什么

详见附件，客户要求在文档中隔行插入PRODUCT KEY（居中加粗），总行数有时候是10k、20k、40k，另外一个问题是 当行数是40k时隔行插入后就变成了80k已经超过了单个sheet的最大行数（65536），能否利用VBA实现自动将隔行插入后的80k分为多个sheet呢？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-29 10:14

40k的可以在2007版运行
产品密码10K.rar (276.12 KB, 下载次数: 25)

2012-11-29 10:14 上传

点击文件名下载附件

跳转到最佳答案楼层

善良的人类

求代码啊。。救命的呢~~  SOS 请各位大侠帮忙

兰色幻想

一个表格引发的命案？呵呵，我帮你写一个

兰色幻想

Sub 隔行插入()
Dim t1, t2, t3, x
t1 = Application.InputBox("请输入从第几行开始执行隔行插入", "插入提示")
t2 = Application.InputBox("请输入插入的次数", "插入提示")
t3 = Application.InputBox("请输入插入的字符串", "插入提示")
For x = Val(t2) + Val(t1) To t1 + 1 Step -1
  Rows(x).Insert
  Cells(x, 1) = t3
Next x
End Sub

zjdh

40k的可以在2007版运行
产品密码10K.rar (276.12 KB, 下载次数: 25)

2012-11-29 10:14 上传

点击文件名下载附件

善良的人类

谢谢蓝色幻想和zjdh两位的热心帮助，但是。。。貌似和期待的结果还是有出入，可能是我描述有误，所以我把求助的内容重新明确了下——

如附件，PRODUCT KEY 是居中 宋体11号 加粗的  而且占据了A到D列，也就是说是有一定格式的，而这个格式客户以后还可能会变，而使用你们提供的方法出来的只是一个简单不加粗字体的字符串插入

所以可不可以换个思路再帮个忙，比如
插入后拷贝某一个先前已有的单元格，这个单元格的内容之前手动定好；

或者你们有更好的思路 能完成该实现也行嗒

善良的人类

zjdh 发表于 2012-11-29 10:14
40k的可以在2007版运行

谢谢蓝色幻想和zjdh两位的热心帮助，但是。。。貌似和期待的结果还是有出入，可能是我描述有误，所以我把求助的内容重新明确了下—— 如附件，PRODUCT KEY 是居中 宋体11号 加粗的  而且占据了A到D列，也就是说是有一定格式的，而这个格式客户以后还可能会变，而使用你们提供的方法出来的只是一个简单不加粗字体的字符串插入 所以可不可以换个思路再帮个忙，比如 插入后拷贝某一个先前已有的单元格，这个单元格的内容之前手动定好； 或者你们有更好的思路 能完成该实现也行嗒

善良的人类

兰色幻想 发表于 2012-11-29 10:11
Sub 隔行插入()
Dim t1, t2, t3, x
t1 = Application.InputBox("请输入从第几行开始执行隔行插入", "插入 ...

谢谢蓝色幻想和zjdh两位的热心帮助，但是。。。貌似和期待的结果还是有出入，可能是我描述有误，所以我把求助的内容重新明确了下—— 如附件，PRODUCT KEY 是居中 宋体11号 加粗的  而且占据了A到D列，也就是说是有一定格式的，而这个格式客户以后还可能会变，而使用你们提供的方法出来的只是一个简单不加粗字体的字符串插入 所以可不可以换个思路再帮个忙，比如 插入后拷贝某一个先前已有的单元格，这个单元格的内容之前手动定好； 或者你们有更好的思路 能完成该实现也行嗒

上清宫主

改自4楼
Sub 隔行插入3()
Dim t1, t2, t3, x
t1 = Application.InputBox("请输入从第几行开始执行隔行插入", "插入提示")
t2 = Application.InputBox("请输入插入的次数", "插入提示")
t3 = Application.InputBox("请输入要复制的单元格，默认为A1", "插入提示", "A1")
For x = Val(t2) + Val(t1) To t1 + 1 Step -1
   Rows(x).Insert
   Range(t3).Copy Cells(x, 1)
Next x
End Sub

上清宫主

不过，要做好思想准备，你几十K的数据，等做完得多去泡几杯茶来喝