如何利用excel快速生成word中使用的多行相同格式的表格？

作者：绿色风分类：时间：2022-08-17 浏览：128

楼主 kevinchengcw	Q: 如何利用excel快速生成word中使用的多行相同格式的表格？ A: word作为字处理软件，在生成表格方面没有excel的功能强大，所以，如果要在word中使用复杂的表格，可以考虑在excel中生成后再到word中进行简单的行列调整即可，下面举例示范： Sub test() Dim M, N As Long Application.ScreenUpdating = False '关闭屏幕刷新，提高处理速度 M = Selection.Row + Selection.Rows.Count '设定起始粘贴单元格位置，因为是要连续，所以用选区起始行号加行数就得到了选区下一行的行号 For N = 1 To 999 '设定循环次数 Selection.Copy Cells(M, 1) '复制并粘贴到对应位置 Cells(M, 1) = N + 1 '这个是用来设置第一列对应的序号的 M = M + Selection.Rows.Count '行号再下移一个表的行数 Next N Application.ScreenUpdating = True '打开屏幕刷新 End Sub 以上是一个用于生成一序列相同格式表格的代码，只需设定好一个基础的表格，将要复制的区域选中，然后运行该代码就可以了，循环次数可以自己调整。（当然量比较小的话也可以用下拉填充的方式进行复制）然后将制作好的表格复制进word中进行调整列宽等操作即可，如果要制作几千行的表格，这个方式应该是最快的。 Office是一个大家族，各个软件有各个软件的强项，只要充分利用，就可以快速轻松的完成工作。附示例文件。生成表格.rar
2楼 wnianzhong	学习VBA!
3楼 hn123	谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表