怎么把两个excel表格合成一个

【www.guakaob.com--统计师考试】

excel如何快速把多个工作表合并到一个excel表
怎么把两个excel表格合成一个 第一篇

excel如何快速把多个工作表合并到一个excel表

有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。

工具/原料

Excel

操作步骤：

1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。

2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。

3、按Alt+F11进入VBA代码编辑和调试界面。

4、根据下图提示，插入一个模块。【怎么把两个excel表格合成一个】

5、将下述代码粘贴到模块空白处：

如何快速把多个excel表合并成一个excel表
怎么把两个excel表格合成一个 第二篇

如何快速把多个excel表合并成一个excel表













 | 浏览：3507 | 更新：2014-01-25 15:30 | 标签： excel















分步阅读

有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，其实利用excel表的宏计算就可以实现。下面我们就来一起解决这个问题。   多个excel表数据 microsoft office 1. 1 我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2. 2

用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3. 3

然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()【怎么把两个excel表格合成一个】

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) =

Len(MyName) - 4)

For G = 1 To Sheets.Count Left(MyName,

excel表里面怎么把两栏合并为一栏
怎么把两个excel表格合成一个 第三篇

excel表里面怎么把两栏合并为一栏 在C1输入=A1&"-"&B1,下拉填充，或者在C1输入=CONCATENATE(A1,"-",B1),下拉填充,注意双引号为英文状态下的

选中这几个单元格，单击右键选设置单元格格式，点上方对齐，然后选下方 文本控制 中的 合并单元格方块内打勾，然后点确定就OK了。

如果希望将A列数据和B列数据组合型显示到C列中

选中C1单元格，输入公式：=B1&C1，确认一下；然后用“填充柄”将其复制到C列下面的单元格中即可。

注意：如果把上述公式修改为 =CONCATENATE(A1,B1) 同样可以达到合并的目的。

如何将2个excel表格合并成一个excel表?
怎么把两个excel表格合成一个 第四篇

我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

 

 

用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

 

 

然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\"& "*.xls")

AWbName = ActiveWorkbook.Name【怎么把两个excel表格合成一个】

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath &"\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row+ 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num& "个工作薄下的全部工作表。如何将2个excel表格合并成一个excel表?。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

 

 

运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

用PS怎么做表格？
怎么把两个excel表格合成一个 第五篇

在PhotoShop做表格的方法有很多，以下给你介绍几种:

1、直接从Word、Excel等粘贴。这方法简单，但是在制作印刷出版物时就显得分辨率不够，因为直接粘贴下来的依据屏幕分辨率的位图文件
(复杂一点说，就是复制的内容是屏幕内容的硬拷贝，什么是硬拷贝?试试右上角PriSc这个按钮)
也就是说，除非你有一个37寸的显示器和足够高的屏幕分辨率，否则这样做无法达到印刷用的分辨率要求。
(注意这里的分辨率与上面的屏幕分辨率是有区别的，屏幕分辨率是一个尺寸概念如1024x768，或者说是一定尺寸屏幕的精细度标准，而印刷分辨率则是指每英寸中点的数量dpi，大家可以把前面的理解为质量m，后面的理解密度ρ，为很多朋友分不清这两个，尤其在很多征稿通知上常常犯这样的概念错误)。

2、在PS中绘制。用PS怎么做表格？。不是我偏激，/>
上面的方法既麻烦，效果又不好，
3、RC简单插入表格法(RC只是代号，没有什么意义)

需要的软件:Photoshop任意版本，Office2007，Save As PDF and XPS 插件(
这里的Save As PDF and XPS 插件是对应Office2007的，作用是将文档保存为PDF格式，而我们这个方法的核心就是将表格保存成PDF格式文档，然后导入Photoshop(值钱的就这一句话啊)。
1直接从EXCEL复制/粘贴过来的 2从EXCEL导出PDF后在Photoshop里打开的

看到了吗?效果就是这样明显(打印出来后更加明显

1)建议在EXCEL中创建表格，这样表格的格式方便控制
2)另存为PDF时用默认选项即可，这样导入Photoshop中后就会形成透明背景的表格文件(当然如果已经在表格中填充颜色的就不是透明的了)，这时候的分辨率是足够的，(因为PDF本身就是对应的印刷分辨率，而非屏幕分辨率)
3)如果分辨率还是嫌低怎么办?改变Word/EXCEL默认纸张大小即可，越大，生成PDF的页面尺寸也越大，对应的分辨率就更高。

excel表格怎么做折线图
怎么把两个excel表格合成一个 第六篇

先全选你的表格---插入折线图---右击折线图---选择“选择数据”----跳出“选择数据源”对话框
---将年代从左侧“图例项”中删除，在对话框右侧“水平（分类）轴标签”中点击编辑，选择你表格中的A2到B8整个范围。

这样名称和年代都会出现在X轴，面积为Y轴

1、选中要做图表的数据区域；
2、点击菜单栏“插入”、“图表”，并选择一种图表类型。例如“折线图”
3、点击“图表向导”下面的“下一步”直到完成。
4、如果图表不理想，鼠标右键点击图表中相应的位置，选中快捷菜单中的项目进行调整。excel表格怎么做折线图。
反复多实验几次，很快就会发现规律，不久你就可以随心所欲地做自己的图表了。

excel表格中如何设置下拉菜单
怎么把两个excel表格合成一个 第七篇

再点击"中输入"，女;。
2;:B5区域→按[添加"后再按[确定"完成第一步;下拉菜单中选择"、横跨两个工作表来制作下拉菜单
方法;下拉菜单中选择"，B2;提供下拉菜单"，7。
二;序列"，就出现了下拉菜单，[来源"中输入[男;和"，在":
1；选择"，直接在表内打印区域外把序列定义好，选中序列区域Z1:Z3处设置好数据源，用英文单引号分隔)，其他";数据有效性"，也可以按右边带红色箭头的直接选择B2、3，2。
Excel设置数据有效性实现单元格下拉菜单的3种方法
一;选定单元格显示输入信息"、引用不同工作表内的数据(必须用到定义名称)，制作有男；
单击[确定"按钮，女;sheet2:Z3);；选上"，
单击[设置"选项卡!$B$2；
3，用鼠标拖动滚动条、 直接自定义序列
用[数据/，
就可实现横跨两个工作表来制作下拉菜单，也可以按右边带红色箭头的直接选择B2一，其他
选择要实现效果的列，譬如A1单元格:
1:$B$5"，6，然后选择要实现效果的列:$i$12")，打开"，再次选择该A1单元格;有效性"功能可以达到目的，在":
如果同一工作表的某列就是下拉菜单想要的数据;对话框;;有效性"、直接输入，譬如A1单元格；
2:用INDIRECT函数实现跨工作表
在sheet2中在Z1，分割符号[，譬如引用工作表Sheet1的B2:B5区域→按[确定"就OK了:B5:B5区域，选上"选项卡，譬如工作表Sheet1的A1单元格要引用工作表Sheet2的B2:$B$5"。excel表格中如何设置下拉菜单。在[设置"选项中→[有效性条件"→[允许"中选择[序列"→右边的[忽略空值"和[提供下拉菜单"全部打勾→在[来源"下面输入[=DW"!$i$8。选择要设置的单元格，5，在[允许"栏选择[序列"，操作如下;设置"。选择菜单栏的[数据"→[有效性"→出现[数据有效性"弹出窗口。
三，8。在[设置"选项中→[有效性条件"→[允许"中选择[序列"→右边的[忽略空值"和[提供下拉菜单"全部打勾→在[来源"下面输入数据[=$B$2:1:菜单栏→[插入"→[名称"→[定义"→弹出[定义名称"窗口:
如果不同工作表的某列就是下拉菜单想要的数据；选择"，在"，女"(不含引号。
三。定义名称。excel表格中如何设置下拉菜单。点击"、3，"必须为半角模式)→按[确定"就OK了;允许"有效性"数据有效性"、2，4;忽略空值":Z3(可以直接输入=$Z$1;选项卡:1:先在同一工作表内的打印区域外要定义序列填好(假设在在Z1，[来源"栏点击右侧的展开按钮(有一个红箭头)。
二:B5分别有以下数据；
3。选择要设置的单元格、利用表内数据作为序列源
有时候序列值较多、2，譬如[1。在[设置"选项中→[有效性条件"→[允许"中选择[序列"→右边的[忽略空值"和[提供下拉菜单"全部打勾→在[来源"下面输入数据:B5分别有以下数据;输入信息"，然后引用，工作表Sheet2的B2;对话框:男;输入信息"。
操作步骤，3;两个复选框；
2;设置"，就出现了下拉菜单。选择菜单栏的[数据"→[有效性"→出现[数据有效性"弹出窗口:
选中[性别"数据区域，操作如下、4，[DW"就是刚刚定义好的名称;:
1;序列"有效性"命令，9"(不包括双引号。选择菜单栏的[数据"→[有效性"→出现[数据有效性"弹出窗口；
执行[数据/；
3:$Z$8。
以选择性别为例，按[确定"就OK了

本文来源：http://www.guakaob.com/caijingleikaoshi/700727.html