excel中怎么将多个sheet合成一个 怎样把多个Excel表合并为一个（每个Excel中有5个Sh...
\u5982\u4f55\u5c06\u4e00\u4e2aEXCEL\u4e2d\u7684\u591a\u4e2aSHEET\u4e2d\u5185\u5bb9\u5408\u5e76\u5230\u4e00\u4e2aSHEET\u4e2d5\u5206\u949f\u5b66\u4f1a\u5728Excel\u4e2d\u5982\u4f55\u628a\u591a\u4e2a\u5de5\u4f5c\u8868\u5408\u5e76\u6210\u4e00\u4e2a\u8868 N\u5e38\u7528\u7684\u6280\u80fd
\u60a8\u597d\uff01
\u9996\u5148\uff0c\u5bf9\u4e8e\u60a8\u7684\u95ee\u9898\uff0c\u8981\u60f3\u5168\u90e8\u90fd\u7531\u7535\u8111\u81ea\u52a8\u5b8c\u6210\u57fa\u672c\u4e0a\u662f\u4e0d\u53ef\u80fd\u7684\uff0c\u9664\u975e\u5199\u4e2aVB\u7a0b\u5e8f\uff0c\u4e0d\u8fc7\u7b49\u4f60\u628a\u7a0b\u5e8f\u5199\u597d\u4e86\uff0c\u57fa\u672c\u4e0a\u7528\u624b\u5de5\u65b9\u6cd5\u4e5f\u505a\u597d\u4e86\u3002\u53ea\u80fd\u8ddf\u4f60\u8bf4\u4e2a\u7528\u624b\u5de5\u6574\u7406\u7684\u6bd4\u8f83\u5feb\u6377\u7684\u65b9\u6cd5\uff1a
1\u3001\u5c06\u6bcf\u4e2a\u8868\u91cc\u76845\u4e2aSHEET\u5148\u6c47\u603b\u6210\u4e00\u4e2aSHEET\uff0c\u4f7f\u7528\u201c\u590d\u5236--\u9009\u62e9\u6027\u7c98\u8d34--\u8f6c\u7f6e\u201d\u7684\u547d\u4ee4\uff0c\u5c06\u6bcf\u4e2aSHEET\u5148\u505a\u6210\u60a8\u6700\u540e\u9700\u8981\u7684\u6392\u5e03\u65b9\u5f0f\uff0c\u7136\u540e\u7528\u201c\u590d\u5236--\u9009\u62e9\u6027\u7c98\u8d34--\u6570\u503c\u201d\u547d\u4ee4\uff0c\u5c065\u4e2aSHEET\u5408\u5e76\u5230\u4e00\u4e2aSHEET\u91cc\u9762\u3002
2\u3001\u5f8512\u4e2a\u8868\u683c\u5168\u90e8\u6c47\u603b\u597d\u4ee5\u540e\uff0c\u628a\u7b2c2\u4e2a\u5230\u7b2c12\u4e2a\u7684\u8868\u7edf\u4e00\u6574\u4f53\u590d\u5236\u8f6c\u79fb\u5230\u7b2c\u4e00\u4e2a\u8868\u683c\u5185\u3002\u7b2c\u4e00\u4e2a\u8868\u91cc\u9762\u5c31\u6709\u4e865+12\u4e2a\u7684SHEET\u3002
3\u3001\u5220\u9664\u539f\u6765\u76845\u4e2a\u5355\u72ecSHEET\uff0c\u4fdd\u7559\u90a312\u4e2a\u6c47\u603b\u597d\u7684SHEET\uff0c\u7136\u540e\u518d\u6dfb\u52a0\u4e00\u4e2a\u65b0\u7684SHEET0\uff0c\u8fd9\u4e2aSHEET0\u5c31\u662f\u6700\u540e\u4f60\u9700\u8981\u7684
4\u3001\u4f7f\u7528VLOOPUP\u3001IF\u547d\u4ee4\uff0c\u901a\u8fc7\u6ee1\u8db3\u641c\u7d22\u6761\u4ef6\u7684\u6570\u636e\u5bf9\u5e94\u5230\u65b0\u7684SHEET0\u91cc\u9762\uff0c\u8fd9\u6837\u5c31\u53ef\u4ee5\u901a\u8fc7CTRL+C\uff0cCTRL+V\u65b9\u5f0f\u5f88\u65b9\u4fbf\u7684\u5b9e\u73b0\u6700\u540e\u7684\u6c47\u603b
5\u3001\u5168\u90e8\u5b8c\u6210\u540e\uff0c\u8bf7\u52a1\u5fc5\u4f7f\u7528\uff1a\u201cCTRL+A
--
CTRL+C
--
\u9009\u62e9\u6027\u7c98\u8d34--\u6570\u503c\u201d\u7684\u547d\u4ee4\uff0c\u5c06\u6240\u6709\u8054\u7ed3\u5168\u90e8\u53d8\u6210\u6570\u636e\u3002\u8fd9\u6837\u60a8\u4e5fSHEET0\u624d\u4e0d\u4f1a\u56e0\u4e3a\u5176\u4ed6\u6587\u4ef6\u7684\u4e22\u5931\u800c\u5bfc\u81f4\u6570\u636e\u7684\u4e22\u5931\u3002
以WPS 2019版本为例：
关于excel中怎么将多个sheet合成一个，您可使用WPS参考下述步骤完成操作：
1、打开「表格（Excel）」文档；
2、点击「数据-合并表格-多个工作表合并成一个工作表」；
3、勾选需合并的工作表即可。
提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。
1、在表格中的加载项中找到“方方格子”选择汇总拆分功能；
2、在下拉菜单中选择“合并多表”；
3、在弹出的对话框中，选择需要汇总的表格名字，然后点击确定；
4、运行后会弹出信息，点击确定，关闭
5、这样，在一个新的工作表中，就汇总了需要的数据。
作者：黎明
链接：https://www.zhihu.com/question/28706686/answer/129595623
来源：知乎
著作权归作者所有，转载请联系作者获得授权。
为了实现将无数（我的300多）个有相同数据格式的excel表文件合并到一个excel的一个工作簿里面去方便进行后续的筛选，提取数据，分析等等。
需要分两步走：
第一步：将所有的excel合并到一个excel之中;刚才的多表之中的内容化身为现在的一个表，下边的多个sheet。
第二步：把这个excel之中的多个sheet合并到一个sheet之中。
需要的基础软件：拥有VBA的excel软件，可以用微软的包含有VBA的office，也可以用国产的wps之中的专业版。
下边说具体步骤
一不同表合并到一个有很多sheet的表里
1、新建一个工作薄，将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查看代码”。（wps的该按钮在开发工具下）
4、在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
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、关闭VBA编辑窗口。
6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。
7、在打开的对话窗口中，选择你需要合并的工作表，如果多的话，可以放在一个文件夹，然后全选。
8、等待。。。。ok！
二 将一个表里的很多sheet合并到一个sheet
1、在包含多个sheet的工作簿中（如多个工作簿合并后含n个sheet的工作簿），新建一个sheet
2、在新建的sheet标签上点击右键，选择“查看代码”（wps的该按钮在开发工具下）
3、在打开的VBA编辑窗口中粘贴以下代码：
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
运行，等待……合并好了后会弹出提示。
你说的合并是汇总吗？如果用数据的“合并计算”功能当然累，而且不能实时更新，但用一个公式就解决了，而且汇总的数据能实时自动更新，方法就是在要合并的sheet中的相应单元格中(如A2)输入=sum(sheet1:sheet50!A2)，就把sheet1直到sheet50中A2的单元格数据汇总到当前表中的A2了。
请参考：
如何快速合并单个excel表中的多个sheet的工作页_百度经验
http://jingyan.baidu.com/article/19020a0ad8080d529d28422a.html
绛旓細鎸変綇CTRL閿紝鐐逛腑Sheeet1銆丼heet2銆丼heet3...锛屽鍒--绮樿创涓涓枃鏈紝鍒伴瀹氫綅缃紝鍑犱釜琛ㄥ氨涓娆″畬鎴愪簡鍚屾牱鐨娣诲姞鏂囨湰銆備繚闄╄捣瑙侊紝鍙互鍏堟彃鍏ヨ锛堟垨鍒楋級锛屽啀绮樿创锛屽氨涓嶅鏄撹鐩栧師鏂囨湰浜嗐
绛旓細浣跨敤缁勫悎宸ヤ綔琛ㄦ壒閲忔搷浣 鎸変綇CTRL閫変腑浣犻渶瑕鐨宸ヤ綔琛紝鎴栬呭彸閿崟鍑婚変腑鍏ㄩ儴宸ヤ綔琛 鍦ㄤ换鎰忕殑涓涓伐浣滆〃涓緭鍏ヤ綘鎯宠鐨勬爣棰 鍙抽敭鍗曞嚮鍙栨秷缁勫悎宸ヤ綔琛紝鏌ョ湅銆
绛旓細闂涓滃崐甯﹀鑷姩璁＄畻鍏紡鈥濇病鐪嬫槑鐧斤紝sheet搴忓彿閫掑锛屾寜濡備笅鎿嶄綔鍗冲彲銆傦紙鐣岄潰鏄2016鐗鐨锛屽叾浠栫増鏈殑浣嶇疆鍙兘涓嶅悓锛1銆侀殢渚挎壘涓涓猻heet锛屽缓绔嬩竴涓綘闇瑕佺殑搴忓垪 2銆佸杩欎釜搴忓垪寤虹珛閫忚琛紝灏嗗簭鍙峰瓧娈垫斁鍒扮瓫閫夊櫒涓3銆侀変腑搴忓彿锛屽湪鈥滃垎鏋愨濋夐」鍗★紝鈥滈夐」鈥濃斺斾笅鎷夎彍鍗曪紝鐐瑰嚮鈥滄樉绀烘姤琛ㄧ瓫閫夐」鈥濆苟...
绛旓細浣犲彲浠ヤ娇鐢⊿pire.Xls鏉ュ疄鐜般係pire.Xls鍙互璁浣犳柟渚垮湴灏excel涓鎸囧畾鐨剆heet瀵煎嚭涓簆df鏂囦欢锛屽苟涓旀敮鎸佸湪瀵煎嚭鏃舵寚瀹歴heet2鍜宻heet3銆傚悓鏍峰彲浠ヤ娇鐢ㄨ妗嗘灦鏉ュ揩閫熼瑙堢敓鎴愮殑pdf鏂囦欢銆
绛旓細绠鍗曚妇涓緥瀛愶紝濡傚浘锛鎶涓婂浘涓璼heet1涓璄鍒楁诲垎鑷姩鐢熸垚鍒皊heet3涓瑽鍒椼1銆佸湪sheet3 B2鍗曞厓鏍艰緭鍏モ滐紳sheet1!e2鈥2銆佸洖杞﹀悗灏辫兘鏄剧ずsheet1涓璭2鍗曞厓鏍煎唴瀹广3銆佹妸b2涓嬫嫋灏卞緱鍒版暣鍒鐨鎬诲垎浜嗐
绛旓細1銆侀夌sheet3 A1鍗曞厓鏍硷紝杈撳叆绛夊彿 2銆佺偣sheet1锛屽啀鐐笰1锛岃緭鍏ュ姞鍙 3銆佺偣sheet2锛屽啀鐐笰1锛屽洖杞︼紝灏眔k浜嗐傛垨鑰呴夌sheet3 A1鍗曞厓鏍艰緭鍏=Sheet1!A1+Sheet2!A1
绛旓細VBA鐨鏂瑰紡锛岀粰浣犲仛鍙傝冿紝浣犻渶瑕佽嚜宸卞啓涓涓嬪綋sheet鍚嶇浉鍚屾椂澶嶅埗鍒版湯灏剧殑浠ｇ爜 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 = ...
绛旓細1銆丆trl+F3锛屽畾涔夊悕绉帮細aaa锛屽紩鐢ㄤ綅缃細=get.workbook(1)2銆丄2鍗曞厓鏍煎叕寮忥細=INDIRECT(INDEX(aaa,ROW(A2))&"!C5")B2锛=INDIRECT(INDEX(aaa,ROW(A2))&"!A4")C2銆丏2绫讳技 3銆佷笅鎷夊鍒
绛旓細姝ｅ父鍚栵紝鍙兘琚垹浜嗭紝浣犱篃鍙互鍒涘缓锛屽湪涓嬮潰鍙冲嚮鏂板缓
绛旓細浣犳槸涓嶆槸鎯崇敤鐢靛瓙琛ㄦ牸寤鐨閫氳褰曟墦淇″皝涔嬬被鐨勫晩锛熶綘鍙互鍏堢敤WORD璁捐涓涓ā鏉裤傜劧鍚庯紝鐐筗ORD鑿滃崟鐨勫伐鍏-淇″嚱涓庨偖浠-鏄剧ず閭欢鍚堝苟宸ュ叿鏍忋傜劧鍚庤缃叧鑱斿氨鍙互浜嗐傚鏋滀粎浠呮槸鎯冲鍒剁殑璇濆氨绠鍗曚簡銆傜偣浣忎笅杈圭殑宸ヤ綔琛ㄦ爣绛撅紝鎸変綇CTRL閿嫋鍔紝灏变細鍑烘潵涓涓壇鏈
