多个相同项目不同内容excel表格数据如何合并为一张总表

方法与步骤如下：

1、将所有格式相同的Excel表格保存到一个文件夹内；

2、在文件夹内新建一个Excel工作表，命名为“汇总表”；

3、打开汇总表，按“Alt+F11”打开VBA开发环境，双击工程资源管理器里面的

sheet1(sheet1),在右侧的代码区编写如下代码：

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

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num, ini As Long

ApplicationScreenUpdating = False

MyPath = ActiveWorkbookPath

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

AWbName = ActiveWorkbookName

Num = 0

ini = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = WorkbooksOpen(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1)ActiveSheet

If ini = 0 Then

WbSheets(1)Range(WbSheets(1)Cells(1,1),WbSheets(1)Cells(1,WbSheets(1)UsedRangeColumnsCount))CopyCells(1,1)

ini=1

End If

For G=1 ToSheetsCount

WbSheets(G)Range(WbSheets(G)Cells(2,1),WbSheets(G)Cells(WbSheets(G)UsedRangeRowsCount,WbSheets(G)UsedRangeColumnsCount))CopyCells(Range("A65536")End(xlUp)Row+1,1)

Next

WbN=WbN & Chr(13) & WbName

WbClose False

End With

End If

MyName=Dir

Loop

Range("A1")Select

ApplicationScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub

4、运行代码，系统会自动将所有Excel表格合并到“汇总表”中

《我的儿子是奇葩》。

《我的儿子是奇葩》是由安徽广播电视台、浙江华谊兄弟影业投资有限公司联合出品的一部都市话题喜剧，由著名导演汪俊执导，佟大为、关悦、徐百卉、郭家铭、蔡宜达等主演。

本剧讲述了江波、楚汉民、何花是三个好朋友，生长在江南小镇的他们，像所有北漂一样，大学毕业，闯荡京城，为事业、为爱情、为父母的面子，为光宗耀祖，拼尽全力。本剧于2014年3月6日登陆安徽卫视、北京卫视、东方卫视、深圳卫视全国首播，并在腾讯视频同步播出。

剧情介绍

江波、楚汉民、何花是三个好朋友。生长在江南小镇的他们，像所有北漂一样，大学毕业，闯荡京城，为事业、为爱情、为父母的面子，为光宗耀祖，拼尽全力。三人的父母也是几十年的老邻居。楚汉民的老妈为了让儿子结婚、抱孙子，首先跑到北京逼婚。

在房产中介工作的汉民为了糊弄爹妈，借了房、借了车，借了个未婚妻，本以为爸妈住上个把星期就走，没想到他们不见结婚证不罢休。江波的老妈看到那两口子到了北京，把老伴扔下自己跑到北京逼婚。结果，楚汉民的谎言穿帮，把老妈气得住了医院。

江波老妈发现儿子的女友不靠谱，决定拆散。何花有对象，但工作不如意。这时老爹老妈们才发现，孩子们的生活和他们的想象天壤之别，工作压力、生活压力、爱情压力，十分不易。经过各种事情，最终大家都能够相互理解尊重，为建立真实而和谐的新生活共同努力。