【已回答】怎样将，Excel，中的数据快速提取到，Word，当中？

怎样将 Excel 中的数据快速提取到 Word 当中？

      写在前面：本次分享出的内容，您真的非常值得研究。

      对于将Excel里面的内容传送至Word的办法，大部分可能都知道用“邮件”的合并功能。实际上，办法不止这么一个，其实，还有好几种，那么现在就来介绍其中一种。

      本次内容，主要针对那些像我一样经常需要写分析报告的人。此部分人的工作流程特点是：在EXCEL里面做好数据分析，然后再把这些内容搬到Word里面，形成最终的文字性报告。

      常规的做法是把形成的分析数值复制，然后粘贴到Word报告的对应位置。这其实，没什么，都是常规的操作，谁不是这样呢？但这样有个问题，那就是如果数据有所变动，那么就特别头疼，必须逐一去报告里面修改数据。有没有一劳永逸的办法呢？当然有，以下就是我的做法。

      这里有个前提条件是，你必须在WPS里面来操作。因为Word里面没法完成，如果有人有兴趣，可以去Word里面试试，你就知道为什么不行了。话不多说，以下就是过程。

      1、用WPS打开数据表以及报告文本，复制数据，这里我先复制表里面“管理费用”的金额。

      2、在对应位置进行“选择性粘贴”操作，具体如下图：

      ①第一步

      ②第二步

      ③第三步

      3、以此类推，复制、粘贴其它数据到报告中对应的位置即可。

      4、最终呈现的结果如下，当表格里面的数据变动，报告里面的数据也会同步变动

2018年上半年费用各项指标如下：
      管理费用：567,821.22元，同比变动15.95%
      销售费用：457,010.00元，同比变动12.83%

      5、如果感觉在报告里面用表格来表示要更为直观一些，那么你也可以直接把表格复制过来，这样报告里面的表格数据也会同步变动。但表格的复制需要注意的是：在选择性粘贴过程中要按照如下选择：

      以上就是基本操作内容，细致的地方就不做过多深入描述了，反正也不复杂。另外，在WPS里面做完后，即使用Word打开也一样可以同步数据。也就是说，在设计阶段需要在WPS里面完成，而最后实际使用阶段的话无所谓了。后期只需要变更表格数据即可，只要报告模板不变，那么你可以使用上万年。

      该办法特别适合那些做预算、审计、分析的人。这种办法除了不需要因为数据变动而去频繁的修改报告之外，更不担心报告中的数据会出错。

      犹记得本人当年刚毕业时做财务分析报告，经常因为数据变动不停的修改，经常性的加班。加班也就算了，更恼火的是因为报告数据录入有误，复核时未被发觉，而被领导劈头盖脸的骂的日子！！

      因此，我希望通过我的努力和探索，尽量不让类似的事情发生在大家身上。换一个思路、换一种方法，眼前可能更开阔。此外，就该问题而言，办法还有很多个，这只是其中之一。如果希望用VBA向Word模板直接输出数据的，那么可以参看我的以下文章：

往期实用内容

      郭大牛：根据EXCEL数据自动生成WORD文档

      郭大牛：使用Excel自动批量发送邮件

      郭大牛：怎样快速的将EXCEL表格数据拆分成多个文件？

      郭大牛：Excel向Word输出复杂图文

      郭大牛：Excel中一个被严重忽视的大杀器功能

      郭大牛：打造Excel与微信之间的交互渠道

      郭大牛：VBA实现高级筛选

      郭大牛：无边界办公——远程虚拟应用架构

      郭大牛：无边界办公——WebDAV文件共享服务构建

      郭大牛：无边界办公—内网穿透

      郭大牛：Excel树形多级下拉菜单的应用

      郭大牛：巧用数据验证制作模糊匹配的下拉列表

      郭大牛：使用VBA自动生成文件目录制作文件管理系统

      郭大牛：使用Excel来制作批命令完成重复工作

      郭大牛：将数字金额转换为中文大写金额的方法

      郭大牛：Excel多级下拉菜单制作

      郭大牛：使用Access制作一个简单的收款管理及票据打印系统方法

      郭大牛：怎样使用最简单的办法实现中小企业的数据共享和办公协同？

      郭大牛：一个基于Access构建的数据管理平台

      郭大牛：基于EXCEL的条形码制作工具

      郭大牛：基于EXCEL的财务数据查询工具

      郭大牛：用友打印设置

怎样把Excel的数据转移到word里？

      复制粘贴？

      --

      数据量大的话↓

      将excel另存为html，

      然后在word中打开该文件

怎样把excel表复制到word中？

      Excel表格转Word，其实很简单，把excel文件保存为【网页】的格式，再导入word就可以了。

      具体的操作步骤如下。

      第一步：

      在Excel里点击【文件】-【另存为】，在【文件类型】中选择【网页】进行保存。

      如果弹出一个新窗口提醒：”如果另存为【网页】，该工作簿中的部分功能可能会丢失“

      （因为Html是静态网页，如果你的文件中带有按钮跳转、色条颜色变换、刷新自动计算等，效果可能会无法呈现，不过这些我们可以在导入word之后再调整）

      所以我们选择【是】就可以了。

      第二步：

      打开Word，点击【文件】-【打开】，找到相应文件夹中的Html格式文件【个人简历】。

      又出来一个弹窗：”网页里的某些文件不在预期的位置“

      也就是提醒你排版可能不匹配，但没关系，按【是】就可以了。

      接下来就是调整排版的问题啦！

      第三步：

      把【个人简历】导入后，选择【表格布局】-【自动调整】-【适应窗口大小】。

      工作栏有两个布局，记得选右边那个，它是属于表格布局。

      如果像我一样怕麻烦，也可以活用搜索。

      这时你会发现，简历被整体往左挪动，平铺在整个文档当中，全部文字和图片内容都被拉长了。

      效果如下：

      如果你觉得还是不合你心意，可以点击表格最左上方的小按钮进行调整。

      调整的时候它会进行整体地移动，无论在表格的哪里添加字体，表格和文字都在对齐的位置。

      就不必担心格式再次乱码了。

      如果你觉得在excel里没有调好间距，在word里也可以进行调整。

      表格始终都会保持好，左右大小也不会发生错位的现象。

      excel表格转word就完成啦，学会后就不需要大费周章地做两份文件，无论领导需要什么格式都能在3秒之内拿出手

      如果还想学习更多office技巧，欢迎关注我或【简知office职场课】公/众/号，每周定期为你分享更多更专业的office办公技巧~

怎样把excel表复制到word中？

      如果word中有表格，只需要把数据粘过去，可以粘贴为单元格。如果word中没有表格，在文字中需要插入一个表格做说明，最好还是粘贴为图片。直接粘贴表格嘛，你懂的

怎样把Excel的数据转移到word里？

      一栋公寓大几千人，一个个复制粘贴不得累死。

      我模拟了一份数据：

      一顿操作后的表格是这样的：

      有两种做法，一种是用数据透视表及一些简单的公式，操作简单，但步骤比较多，另外一种则是通过VBA循环完成，学习周期较长，但理解起来比较简单。

问题分析

      从数据及现实情况来看，一个班级的学生会分布在多个不同的宿舍，而一个宿舍也有可能有多个不同班级的学生，是多对多的数据。

      而要想从基于宿舍制作的表格转换为基于班级制作的表格，其中的联系项就是学生。

      那么，我们可以通过批量拆分合并单元格填充身份列，将这张表转换为标准的一维表，每一行就是一条数据：

      这个表格可以分为两部分，一部分是班级与宿舍的关系，另外一部分是宿舍与各个成员之间的关系。

      接下来，分享两种实现方法：

方式一：手动操作

      上面说过，班级与宿舍分配是多对多问题，因此，只有班级与宿舍都相同，才可以算作同一数据，因此，要做的就是对宿舍及班级的合并去重。

      可以使用数据透视表完成：

      有了班级与宿舍的对应关系，接下来，就是宿舍与各个成员的对应关系了。

      宿舍舍长与其联系方式比较容易获得，因为舍长是与宿舍绑定的，不用考虑是哪个班级，同样使用数据透视表并筛选：

      有了这张表，我们使用VLOOKUP函数就可以获取所有关于宿舍长的信息：

      接下来，就是舍员信息，同样使用数据透视表，可以获得如下数据：

      注意使用「不重复项目标签」的表格型数据透视表，下面才可以进行筛选。

      但我们发现，这里的数据是按列排的，而要生成的表格是逐行排列的，因此，我们可以利用空白单元格的意义（上一条数据中的宿舍与此条数据的宿舍相同），实现错位提取：

      当然，由于每个宿舍最多容纳4人，刨除舍长，最多还有3名舍员。如果有更多舍员的话，请参考“三”这一列的公式，同时需要判断左侧单元格不能为空，否则就表示此宿舍已无其他成员，不要再向里填写舍员姓名，这个姓名是其他宿舍的成员。

      到这里，我们筛选一下，就可以获得舍员与宿舍的对应关系了：

      这里有个0，暂时不用管，我们最后处理。

      接下来，同样，使用VLOOKUP函数，将宿舍与对应的舍员拼接在一起：

      最后，将全表的公式都转换为值，并将舍员数据中的“0”替换为""即可（勾选单元格匹配）。

      那么，这就是我们最终的效果了：

      如果你需要合并数据相同的单元格，可以利用数据透视表完成，或者使用「浅北表格助手」中的功能（获取方法见文末）：

方法二：VBA循环

      VBA对这种数据批量处理很好用，理解起来比较简单，也不用记一些奇技淫巧的功能，一个个数据查找就可以。

      这里简单说下处理的逻辑，先把不同班级不同宿舍的信息找出来，再根据每一个学生所在的宿舍及该成员的身份做遍历，填写在相应的位置即可。

      代码也贴出来了，有注释，不懂的可以联系我：

      Sub纯循环解决() DimdShtAsWorksheet,oShtAsWorksheet SetdSht=Worksheets("数据表") SetoSht=Worksheets("现表") Const数据表开始=2,数据表结束=24,现表开始=2 Const现表序号="A",现表班级="B",现表宿舍="C",现表舍长="D",现表舍长电话="E",现表舍员="F" Const数据表宿舍="A",数据表姓名="B",数据表班级="C",数据表电话="D",数据表身份="E" Const舍长="舍长",舍员="舍员" Const总行数=65536'如果数据行数超过，请修改此参数为1048576 DimiAsLong,jAsLong '填充宿舍&班级信息 Fori=数据表开始To数据表结束 DimflagAsBoolean'匹配的宿舍&班级 flag=False'如果没找到返回初始值False Forj=现表开始TooSht.Range(现表班级&总行数).End(xlUp).Row IfdSht.Range(数据表班级&i).Value=oSht.Range(现表班级&j).ValueAnd_ dSht.Range(数据表宿舍&i).Value=oSht.Range(现表宿舍&j).ValueThen flag=True ExitFor EndIf Next IfNotflagThen '如果没找到对应的宿舍&班级，则创建 '此时j已经是最下方的空单元格的行号了，可以直接使用 oSht.Range(现表班级&j).Value=dSht.Range(数据表班级&i).Value oSht.Range(现表宿舍&j).Value=dSht.Range(数据表宿舍&i).Value oSht.Range(现表序号&j).Value=j-现表开始1 EndIf Next '这遍填充姓名等信息 Fori=数据表开始To数据表结束 Forj=现表开始TooSht.Range(现表班级&总行数).End(xlUp).Row IfdSht.Range(数据表宿舍&i).Value=oSht.Range(现表宿舍&j).ValueThen IfdSht.Range(数据表身份&i)=舍长Then oSht.Range(现表舍长&j).Value=dSht.Range(数据表姓名&i).Value oSht.Range(现表舍长电话&j).NumberFormatLocal="@"'设置为文本格式 oSht.Range(现表舍长电话&j).Value=dSht.Range(数据表电话&i).Value Else DimkAsLong:k=0 DoWhile1 IfoSht.Range(现表舍员&j).Offset(0,k).Value=""Then oSht.Range(现表舍员&j).Offset(0,k).Value=dSht.Range(数据表姓名&i).Value ExitDo Else k=k1 EndIf Loop EndIf EndIf Next Next EndSub