excel中如何实现逐行复制并插入到本行下面

Question

因要编辑图书目录。现在4000多本图书信息如下：第1行 ～第4000行共4000种书。假设每中书要采购3本。并分成：政经类，文史类 ，科技类，医学类，农业类，养殖类，工具类，综合类。由于我手机编辑不方便复制表格给大家看。用数字表示下吧！假如第一行1111第二行2222第三行3333第四行…要求生成的excel为：第一行1111第二行1111第三行1111第四行2222第五行2222第六行2222第七行3333第八行3333第九行3333第十行…（说明有于格式原因，用复制排序法不方便，还有其实方法么？比如函数什么的？小白求详解！）

Answer 1

其实我不知道你的文档到底有什么特殊格式，我总感觉复制排序应该是可以的。比如你可以在文档前面再插入一列1、2、3、4、5、6...之类的，再复制，再排序！！
当然你也可以考虑下面这个代码！或者你可以把你的那个文档发给我看看！
由于不知道你的文档有什么特殊的格式，所以不保证这个代码一定好用~~在excel最下栏对应的文档名称上点右键出现一个菜单栏，点击“查看代码”，然后把下面那段代码复制进去，运行就可以了。可能会涉及启用宏之类。中间4000、30、6000这三个参数可以根据你的文档需要实际调整，得到的结果会保存在6000行以后，你再把前面的删除就可以了。

Sub copyrows()
For i = 1 To 4000 '复制前4000行
j = 6000 + (i - 1) * 3 '将复制结果保留在第6000行以后
Data = Rows(i).Value
Rows(j).Value = Data '复制整行数据，注：不能保留格式
Rows(j + 1).Value = Data
Rows(j + 2).Value = Data
Next i
End Sub

Answer 2

用函数~

Answer 3

用隔行插入吧

Answer 4

VBA应该行，或者数组函数。去EXCELHOME问问。。。