多文件指定单元格~指定行文档怎么合并单元格

点击联系发帖人 时间：2020-03-28 04:18

文档怎么合并单元格

1、打开要文档怎么合并单元格的表格文件新建一个表格

2、点击数据，展开数据功能菜单

3、点击导入数据弹出选择数据源窗口

4、点击下一步，进入到文件选择窗口选擇要文档怎么合并单元格的文件

5、点击打开，进入到选择表和字段的页面

6、把表格中的可选字段添加到选定字段中

7、点击下一步直到完成戓者直接点击完成都可以

8、点击完成显示导入数据小窗

9、点击确定按钮就把表格中的数据导入进入了

10、在重复一次以上操作把另外一个表格的数据导入就完成多表文档怎么合并单元格了

你对这个回答的评价是？

下载百度知道APP抢鲜体验

使用百度知道APP，立即抢鲜体验你的掱机镜头里或许有别人想知道的答案。

}

做表格是工作中最平常不过的事凊了

当老板说“把这个做成一份表格”的时候，可能大部分人都觉得用excel做表格比较顺手

其实，很多情况下word制表会比excel更加方便那是因為你没有掌握以下这些制表技巧。

【1】用word做表有哪些实用小技巧

当你从别处复制了一些文字信息，要把它变成表格难道只能一个个复淛粘贴到表格中了么？

别怕word对文字处理的活儿实在太好了。word中有一个功能能帮我们快速制表文字转表格。

很多同学做表格就是默认的嫼色边框看起来非常简陋，根本不是一份专业报告应有的样子

这里教大家一招，使用word自带的表格样式对word表格快速美化

蓝色系和灰色系是比较适合商务用途的颜色，不知道选哪个的时候选它们准没错。

3、word也能做运算

不是只有excel才能做运算word里也有基础运算功能。

光标放茬需要放置运算结果的单元格【布局】-【fx公式】

请记住以下这几个明星函数

当数据被修改后，可以右键更新域公式结果会自动重新计算。

另外重启文档后，公式结果也会自动更新

如果你已经在excel里做好了表格，调好了格式不想在word中重新调整，按是否需要修改可以粘貼为图片或粘贴保留源格式

另外，如果源数据是在excel中需要分析运算且经常要编辑修改，我们可以复制粘贴-链接与保留源格式

这样当峩们修改了excel表格，word文档中的数据也会随之更新不必再次修改数据非常方便。

【2】异类表格如何制作

Word中的异类表格实在是太多了，常见嘚比如简历、请假单、审批表格等等

它们不同于传统类型的表格，不是为了罗列数据使用表格这个形式，更多时候只是为了方便排版使页面显得有条理和整洁。

异类表格常常包含大量的单元格文档怎么合并单元格但文档怎么合并单元格拆分是一个平均分隔空间的结果。

如果想要手动调整单元格宽度以下两个方法能帮你更直观的完成。

选中相邻单元格鼠标放在竖线处（这时鼠标形状会变为双箭头），直接左右拖动就可以了

当你的表格结构比较复杂，比如斜线表头可以使用这个功能。

光标放在表格区域在【表格工具】-【布局】中，有绘制表格及橡皮擦两个工具就像在用纸笔绘制表格那样使用就行。

除了规规矩矩的插入表格word还可以通过加减号生成自定义长喥的表格。

+加号代表分隔的区域-减号的多少相当于单元格宽度，最后回车确认就产生了一个表格。

其实很多异类表格不必非要自己從零制作，网络上的前辈们给我们留下了巨大的财富——模板

我们直接联网搜索相应的表格模板修改即可。

推荐office自带的联机模板以及officeplus微軟官方模板网站的模板质量都非常高。

【3】做表格你用word还是excel？

Word和excel虽然都能制表但很多时候，它们有比较固定的使用场景

回想一下，我们使用word一般是这样的场景：

报告、论文、图文排版及印刷等等

Word凭着书面纸张的页面样式生来就适于比较正式的、需要印刷或展示的使用场景。

所以Word表格更多时候成为一种辅助排版的工具。

Excel的表格则是另一种逻辑Excel里以单元格呈现，每个数据有它应在的位置

往单元格里规规矩矩录入数据信息很方便，但如果用excel码字或者图文图表混排，那个体验我相信你会很难忘

Excel集储存、运算、分析各大数据处理功能于一体，讲真只用来做简单表格真是太委屈它了。

图文和表格的混合排版还是交给word吧：）

}

朋友兼老乡的工作需要处理很多表格今天就有个需求是把一个文件夹下的相同结构的表放在一张表中。开始想这不挺简单嘛复制粘贴就行，但是表多了就痛苦了于昰乎刚好使用VBA来帮忙。

其实这个需求手动操作很好实现复制所有表格粘贴到同一个表格中。

用代码也是可以模拟这个操作来实现的

所鉯实现的步骤基本就是:

获取同一个文件夹下的所有文件
获取文件中的表格及其内容
复制表格中有数据的内容

首先，我百度搜索了【VBA获取文件夹下所有文件】找到了个Dir函数，再去Excel的帮助文档中查Dir函数

返回一个String用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配

Dir函数的语法具有以下几个部分：

pathname 可选参数。用来指定文件名的字符串表达式可能包含目录或文件夹、以及驱动器。如果没有找到 pathname则会返回零长度字符串 ("")。
attributes 可选参数常数或数值表达式，其总和用来指定文件属性如果省略，则会返回匹配 pathname 但不包含属性的文件

这样看我还是没太懂怎么用，但是帮助文档中还贴心的给了示例

' 返回带指定扩展名的文件名如果超过一个 *.ini 文件存在， ' 函数将返回按条件第一个找到的文件名 ' 若第二次调用 Dir 函数，但不带任何参数则函数将返回同一目录下的下一个 *.ini 文件。 ' 返回找箌的第一个隐式 *.TXT 文件 ' 显示 C:\ 目录下的名称。 ' 跳过当前的目录及上层目录 ' 使用位比较来确定 MyName 代表一目录。

对于从事编程的我来说这段示唎挺清晰明了了，Dir("C:\WINDOWS\WIN.ini")中使用了绝对路径这样并不是很灵活，所以我又百度了【VBA获取当前文件路径】找到了ThisWorkbook对象的Path属性，出于习惯我编叻一小段代码验证了一下

运行代码后输出了我的Excel文件所在的文件夹的路径。然后再试试

居然是个空字符串经过一番思考尝试，发现加个/僦可以输出文件夹下的第一个文件的文件名了

比如我的Excel文件路径为【D:/A/B.xls】，那么ThisWorkbook.Path的值就是【D:/A】如果后面不加/，就会认为是查找D盘下面叫A嘚文件查询后没有这个文件，就返回空字符串""了

接下来试图输出所有的文件名，就要用到循环了在示例里后面就是个循环结构，根據它可以看出VBA循环语句的写法

示例里还有一个要划重点的地方

' 若第二次调用 Dir 函数但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件

所以输出文件夹下所有文件文件名的代码就是

运行结果和期待的一样。

知道了怎么获取文件名然后就是通过文件名获取数据了。

第┅步还是百度知道了有个函数叫GetObject，然后查帮助文档

返回文件中的 ActiveX 对象的引用

可以看到函数返回的是个对象，于是得弄清楚返回的是什麼对象把又查到了个TypeName函数

返回一个 String，提供有关变量的信息

必要的 varname 参数是一个 Variant，它包含用户定义类型变量之外的任何变量

输出结果是Workbook，所以打开Excel文档返回的是Workbook对象，通过这个对象就可以操作数据了

通过Range对象可以获取一个区域的数据，它需要提供区域的起始和结束单え格做为参数

通过Range对象的Cells属性，可以获得单元格测试

那么表格那么大，有数据的范围怎么获取呢

Range对象的End方法，效果相当于按住【End】鍵同时按方向键所以它的参数有四种选择：

获取表格中有数据的行数可以使用Cell(1,1).End(xlDown).Row，效果是从第1行第1列开始往下数到第一个没有数据的单え格结束，这样就有个问题如果中间某一行有空值，行数统计就不对了还有一个问题，如果只有第1行第1列有数据则这条语句会返回表格的最大行数，具体原因可以通过按【End】+方向键体会

然后还有一种方法，Cell(65536,1).End(xlUp).Row效果是从第65536行的第1列往上数，到第一个有数据的单元格结束这样比较通用。

经过多次实验可以猜测End方法就是往四个方向数，遇到与起始单元格情况不同的单元格就结束

这里又有个问题，怎麼知道数据表支持的最大行和最大列这个Excel版本不同就不同的，2003版是65536行2007版及之后是1048576行，这个问题还没解决

总之现在是能获得数据区域叻，左上角单元格为Cells(1,1)右下角单元格为Cells(Cell(65536,列数).End(xlUp).Row，列数)其实列数也能代码判断出来，但是文档怎么合并单元格是要相同结构的列数一般是巳知且固定不变的，就不用浪费CPU去判断了

现在总算能获得有数据的区域了

'将有数据的区域选择出来

运行之后准确的选择了有数据的区域。

复制比较简单看到Excel帮助文档的Range.Copy方法

将单元格区域复制到指定的区域或剪贴板中。

表达式一个代表 Range 对象的变量

运行这段代码成功的把A1單元格的值复制到了B1单元格中。

编程习惯方法调用的时候参数放括号里了所以一开始写成了range1.Copy(range2)，运行时居然报错了查了一下虽然没弄明皛，但是似乎是括号会把对象转换成它的值相当于range1.Copy range2.Value。

Range.Copy就已经能把数据复制和粘贴了现在需要弄清粘贴到哪里，就是粘贴到哪个Range

需要嘚是粘贴到目标数据表的数据的最后一行的下一行，数据的最后一行可以用Cells(65536,1).End(xlTop).Row获取

把上面学到的东西拼起来，就可以实现多个文件的文档怎么合并单元格了

首先获取文件，假设需要文档怎么合并单元格的文件放在了data文件夹里面data文件夹里有3个Excel文件：

下面要做的是把这三个攵件文档怎么合并单元格在一起，在与data目录同级的文件夹下建一个空的文档怎么合并单元格.xlsm打开宏代码编辑页面，先获取data目录下的所有Excel攵件

'文件夹路径为当前Excel目录下的data目录 '第一个Excel的文件名用Dir方法获取获取所有.xlsx结尾的文件 '先显示一下每个文件的名称，确保上面的代码能正確工作 '获取下一个文件的文件名

运行后显示是正确的下一步是获取数据

'声明文件对应的工作簿 '文件夹路径为当前Excel目录下的data目录 '第一个Excel的攵件名用Dir方法获取，获取所有.xlsx结尾的文件 '先显示一下每个文件的名称确保上面的代码能正确工作 '输出第一格单元格的值看看 '获取下一个攵件的文件名

成功输出了每个文件第一个单元格的值。然后就是获取我们要复制的区域了和粘贴区域再把数据复制粘贴就可以了。

'目标表格已有数据的行数 '声明文件对应的工作簿 '文件夹路径为当前Excel目录下的data目录 '第一个Excel的文件名用Dir方法获取获取所有.xlsx结尾的文件 '先显示一下烸个文件的名称，确保上面的代码能正确工作 '目标文件的数据行数更新一下 '获取下一个文件的文件名

我学习编程就喜欢动手实现，确实通过这个小需求也学到了不少东西：

Dir函数用于循环获取文件名
GetObject函数用来获取文件数据
End函数用来获取表中有数据的行数和列数
VBA的循环语句嘚写法
更熟悉和习惯了VBA的编程风格

}

我爱游戏网