成语| 古诗大全| 扒知识| 扒知识繁体

当前位置:首页 > 趣味生活

怎么把多个excel表合并成一个

Q1:如何将两个EXCEL表合并成一个

1、需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。

2、用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。

3、然后把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,

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

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& "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub

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


Q2:怎么把excel一个带公式的表移动到另一个表中?

移动或复制就OK啦

Q3:怎么将多个excel工作表合并成一个?

1 新建一个工作表放在最左边,在这个工作表运行以下代码
Sub 合并()
For I = 2 To Sheets.Count
如果工作表的第一行都一样,就把下面 Rows("1" & 的1改成2就好了
Sheets(I).Rows("1" & ":" & Sheets(I).Range("A60000").End(xlUp).Row). _
Copy Range("A" & Range("A60000").End(xlUp).Row + 1)
Next
End Sub

Q4:如何快速把多个excel表合并成一个excel表,并且将每个sheet区分开来。

新建一个文件夹,将需要合并的excel文档复制到该文档目录下。2/7、新建一个EXCEL空白文档,鼠标移动到在sheet工作表上单击右键,选择“查看代码”选项,进入VBA控制台。3/7、在菜单栏点击“插入”菜单,选择“模块”选项,进入模块编辑界面。4/7、在编辑框中复制以下代码,注意符号,需是英文状态下。
功能:把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表,新工作表的名称等于原工作簿的名称Sub Books2Sheets()定义对话框变量Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFilePicker)新建一个工作簿Dim newwb As WorkbookSet newwb = Workbooks.AddWith fdIf .Show = -1 Then定义单个文件变量Dim vrtSelectedItem As Variant定义循环变量 ,开始文件检索,打开被合并工作簿 ,复制工作表,把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于xls文件,5/7、代码输入后,点击菜单项中“运行”,选择“运行子过程”选项,或者按下F5快捷键,运行代码。6/7、运行代码后,会弹出文档选择界面,找到新建文件夹的路径,选择你所需要合并的文档,选择文档后,点击“打开”,代码正在运行,运行时间视文档数目而定。7/7、代码段运行结束后,就会出现已经合并完成的excel文档界面,新工作表的名称等于原工作簿的名称。

WWw.B@AzHiSHi.cOM

Q5:把很多的Excel表汇总成一个怎么做效率高?

Excel数据汇总中有这样一个问题:在很多个工作表中,同一项数据都位于同一个单元格,比如:每个月份的销量都位于每个月份工作表的B1单元格,而我们需要把每个月的销量汇总到一个总表中,在该总表中,各个月的销量分布为同一列。

这种汇总情况如下动图:

以上示例中,每个分工作表的命名是有规律的:从1到12月。但这种有规律的情况,只是个例,而普遍存在的是:每个分工作表的名称是无规律可寻的。

比如,以下动图,各个分表名称是超市名,而超市名是没有1——12等数字规律的:

上述两种情况,需要不同的汇总方法。

韩老师一一讲述:

分表名称有规律

公式实现

在B2单元格输入公式:

=IFERROR(INDIRECT(ROW(A1)&"月"&"!B1"),"")

公式向下填充,即得所有工作表B1单元格的数据。

公式解析

ROW(A1)&"月":

公式在B2单元格时,ROW(A1)返回1,即得工作表名称1月,公式向下填充到B3单元格时,该部分变为ROW(A2),即得工作表名称2月,再向下填充,得到其它月份工作表名称。

ROW(A1)&"月"&"!B1":

连接工作表名称与单元格,得到:1月B1,2月B1,……12月B1.

INDIRECT(ROW(A1)&"月"&"!B1"):

引用1月B1,2月B1,……12月B1的值。

IFERROR(INDIRECT(ROW(A1)&"月"&"!B1"),""):

如果引用有结果,返回正确值,否则返回空值。

分表名称无规律

1、鼠标放在第一个超市名称的单元格A2,【公式】——【定义名称】:输入名称BM(此名称可任意取),引用位置处输入公式:

=INDEX(GET.WORKBOOK(1),ROW(A2))

GET.WORKBOOK(1)是宏表函数,取所有工作表的名称。

2、在A2单元格输入公式:

=IFERROR(BM,"")

向下填充,得到所有超市名称:

IFERROR函数是容错处理,如果没有超市名称,返回空值。

3、在B2单元格输入公式:

=IFERROR(INDIRECT(A2&"!B1"),"")

公式向下填充,即得所有超市工作表B1单元格的数值:

4、如果不喜欢上图中带工作簿名称的超市名,可以把公式改为:

=IFERROR(MID(BM,13,9),"")

因为工作簿名称有12个字节,所有用公式MID(BM,13,9),从第13个字节开始提取超市名称。其中9是随意取的长度,根据超市名称字符数的多少,该数值可灵活改变。

※特别注意:

工作表名称无规律的情况,因为引用了宏表函数,所以文件保存时要保存成“启用宏的工作簿.xlsm”。

Q6:如何把两个excel表格合并成一个表格?

两个excel表格合并成一个表格的方法:

1、首先找到并点击你的WPS表格,即打开Excel。

2、打开Excel后,导入或输入自己想要的表格。

3、在Excel中复制其中一个表格。

4、然后选择另一个表,在Excel中复制所有数据。

5选择刚才复制的表的第一个数据(对应数据),单击右键,点击选择性粘贴选项。

6、单击右键,点击选择性粘贴选项后,选择数值选项。

7、在Excel中选择数值选项后,再选择加选项。

8、Excel中选择数值选项后,再选择加选项后,点击确认。

9、然后就生成了两者相加合并的表格。

10、同样,其余乘除减的做法与此一样。

完成以上步骤即可把两个excel表格合并成一个表格。

针对此问题,我们主要考虑以下二种情况:

情况一:多工作表在同一工作簿中,数字类型为“数值型”的合并。

首先,假定不良类别的顺序一致,我们优先选择函数法。在“总不良数据”工作表中的"B2"单元格里输入公式【=SUM(生产1线:生产3线!B2)】,如下图示:

其次,假定不良类别的顺序不一致,我们优先选择合并计算法,如下图演示 :

情况二:同一文件夹下有多个工作簿,数字类型为“文本型”的合并。

下图为公司各部门员工的KPI信息,如何汇总到同一工作簿中?

解决方案的最终效果,如下演示:

此方案主要功能:

⓵单击“合并所有工作簿”命令按钮,系统自动实现合并功能;

⓶执行命令后,系统自动弹出一“提示”对话框,显示合并的工作簿信息;

⓷当部门员工的信息有更改时,再次单击按钮,汇总数据随时刷新。

此方案用到的VBA代码

鸣谢:需要源文件或源代码的读者,请私信或留言,小编免费赠送!

猜你喜欢

更多