返回目录：excel表格制作
提取数据工式为： G1=A!E1&B!E1向下拉即可
但重复的只提一次，不懂是那个内容全部重复还是其中一个重复，有一点不明白！
把不在同一个工作簿里面的东西，把它们复制到同一样工作表里面不就好了？？
一、整体简介：我理解你的需求应该是：用一个excel工作簿（结果工作簿.xlsm）来获取其它工作簿中的工作表内容，将其保存e799bee5baa6e79fa5e98193e58685e5aeb9336至当前工作簿中（分不同工作表保存）。
如图：
二、所需工具/原料：微软office2007（但要启用宏）
如图：
三、方法：新建一个空excel文档，写入宏代码，关联宏代码，执行宏=结果。
四、步骤：
1、新建一个空白的excel，并打开
2、切换到【视图】-【宏】-【查看宏】。如图：
3、输入“宏名”-点【创建】按钮。如图：
4、输入宏代码，并保存。如图：
代码如下：
Sub 复制指定工作簿的全部工作表3()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="2015")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
5定义快速按钮用于执行宏。如图：
6完善第5步骤：“从下列位置选择命令-【宏】”-双击自定义的宏，添加至右边-修改宏属性（图标，名称等），图标、名称随便自定-然后一路确定下来-最后保存这个excel文件。如图：
7、打开刚刚新建的带宏的excel文件，点击宏的执行按钮，就能得到你想要的结果。如图：
五、好人做到底，最后给你附件
1.首先，先来看一下INDIRECT函数的用法。INDIRECT函数的作用是：将表示单元格引用的文本转换为实际单元格的引用。具体示例见下图说明：
2.上面的例子是返回同工作表中的内容，INDIRECT函数对不同工作簿、不同工作表的文本地址也是同样适用的，如下图示例：
3.注意：对部分工作表名称引用时需要在工作表名称前后加上英文状态的单引号，比如说以数字开头的工作表名称，实际单元格引用类似：='1月份报表'!H18。为了避免错误，可以将所有工作表名称前后都加上单引号。
4.下面来介绍一下要合并的数据。有12张工作表，每个工作表是一个月份的数据。其中A列是客户名称，B列和C列分别是两个产品的销售数量。每个表格里A列的客户名称是一样的（可以类比财务报表的固定科目）。
5.首先，建立一个汇总表，把客户名称复制到汇总表的A列。
6.从B1开始，将工e799bee5baa6e79fa5e98193e78988e69d83365作表名称顺序填充在汇总表第一行。
注意：工作表名称可以用其他Excel小插件取得，转置粘贴到B1开始的单元格区域。
7.先来汇总产品一各月的销售数量。
双击B2单元格，输入公式：=INDIRECT("'"&B$1&"'!B"&ROW(A2))，返回1月份A客户产品一的销售数量，可以查看原始数据表验证一下。
8.注意：上面INDIRECT函数生成单元格地址引用部分用了公式，B1代表月份，!B代表取每个表B列数据。row(A2)先返回A2单元格的行数2，然后下拉会变成3,4……等，也就可以顺序取得每个工作表其他客户的销售数据。
将B2单元格公式右拉，下拉填充满数据区域就可以方便的查看各月份各客户产品一的销售金额了。可以查看原始数据表验证一下。
9.如果要查看产品二的数据，可以修改B2的公式，将!B改成!C，右拉下拉即可。也可以用查找替换的方法一次性完成该转换。
易错点提示：这种替换时不要只将B替换成C，因为公式中包含的所有字母B都会被替换成C，导致发生不可预期的错误。比如说ISBLANK函数的B替换成C后，excel就无法识别并运算了。
10.替换完成后，也可以查看一下原始数据表产品二的销售量，看是否正确返回了结果。