如何逐行写入EXCEL文件
1个回答
2018-08-26 · 百度认证:云南新华电脑职业培训学校官方账号
云南新华电脑学校
云南新华电脑学校是经云南省教育厅批准成立的省（部）级重点计算机专业学校，采用三元化管理模式，教学设备先进，师资雄厚学生毕业即就业，学院引进了电商企业入驻，创建心为电商创业园区，实现在校即创业
向TA提问
关注
![]()
展开全部
其实我不知道你的文档到底有什么特殊格式，我总感觉复制排序应该是可以的。比如你可以在文档前面再插入一列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
当然你也可以考虑下面这个代码！或者你可以把你的那个文档发给我看看！
由于不知道你的文档有什么特殊的格式，所以不保证这个代码一定好用~~在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
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
