乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 怎么将excel的一列数据分别一一对应插入到word指定表格...

怎么将excel的一列数据分别一一对应插入到word指定表格...

作者:乔山办公网日期:

返回目录:excel表格制作


貌似没有什么灵活办法,只有一个个复制
如果你的WORD表格可以修改,你可以利用一下文本转换成表格,表格转换成文本这一功能试试。

先复制excel要导入的数据,选择性粘贴选择excel(鼠标要放在指定的表格里才能指定对应位置)。如下图所示:

可以的话采纳一下。。。


word模版编辑,在设置好word模版,把excel文件的数据准备好,它可以自动化地把姓名、职位、部门等你要填的数据,批量导入word模版,然后打印

这个可以在EXCEL中用宏e799bee5baa6e997aee7ad94e4b893e5b19e339命令来完成。
假设Word文件名为表格.doc,与EXCEL文件放在同一个文件夹中。
假设Excel中一条数据需要导入10列单元格,从A列开始。
Word文件中有两个相同表格,但只用导入到一个表格。
Sub text()
Dim wd As New Word.Application, arr

arr = Range("A" & n).CurrentRegion

For i = 1 To UBound(arr)

With GetObject(ThisWorkbook.Path & "\表格.doc")

.tables(1).Cell(i, 1).Range = arr(i, 1)

.tables(1).Cell(i, 2).Range = arr(i, 2)

.tables(1).Cell(i, 3).Range = arr(i, 3)
.tables(1).Cell(i, 4).Range = arr(i, 4)

.tables(1).Cell(i, 5).Range = arr(i, 5)

.tables(1).Cell(i, 6).Range = arr(i, 6)

.tables(1).Cell(i, 7).Range = arr(i, 7)

.tables(1).Cell(i, 8).Range = arr(i, 8)

.tables(1).Cell(i, 9).Range = arr(i, 9)

.tables(1).Cell(i, 10).Range = arr(i, 10)

.Save

End With

Next i

wd.Quit

End Sub

相关阅读

关键词不能为空
极力推荐
  • Excel表格设计全能手册的介绍

  • 快捷方法:1、打开EXCEL表格,点击”分页预览“。2、将页面中右侧及下面的”蓝色虚线“用鼠标拖动到”实体框线“位置。《Excel表格设计全能手册》是2009年中国铁道出版社出版的图书

聚合标签

ppt怎么做_excel表格制作_office365_word文档_365办公网