如何将EXCEL中的多个表格复制到另一个表格中 怎样将EXCEL工作薄中的多个工作表快速复制到另一个工作薄中...
\u5982\u4f55\u5c06\u4e00\u4e2aEXCEL\u8868\u683c\u4e2d\u7684\u5185\u5bb9\u53ca\u683c\u5f0f\u5168\u90e8\u590d\u5236\u5230\u53e6\u4e00\u4e2a\u8868\u683c\u4e2d\uff1f\u5c06\u4e00\u4e2aEXCEL\u8868\u683c\u4e2d\u7684\u5185\u5bb9\u53ca\u683c\u5f0f\u5168\u90e8\u590d\u5236\u5230\u53e6\u4e00\u4e2a\u8868\u683c\u4e2d\u7684\u64cd\u4f5c\u65b9\u6cd5\u5982\u4e0b\uff1a
1\u3001\u70b9\u51fb\u684c\u9762\u4e0a\u7684excel\u56fe\u6807\uff0c\u6253\u5f00excel\u8868\u683c\uff1b
2\u3001\u957f\u6309\u9f20\u6807\u5de6\u952e\u9009\u53d6\u8981\u590d\u5236\u7684\u8868\u683c\u5185\u5bb9\uff1b
3\u3001\u677e\u5f00\u70b9\u51fb\u9f20\u6807\u53f3\u952e\u51fa\u73b0\u90e8\u5206\u9009\u9879\uff0c\u70b9\u51fb\u590d\u5236\uff1b
4\u3001\u6253\u5f00\u4f60\u8981\u590d\u5236\u5230\u7684\u8868\u683c\uff0c\u5de6\u952e\u70b9\u51fb\u8981\u590d\u5236\u5230\u7684\u533a\u57df\uff1b
5\u3001\u53f3\u952e\u8981\u590d\u5236\u7684\u533a\u57df\uff0c\u51fa\u73b0\u9009\u9879\u5217\u8868\uff1b
6\u3001\u79fb\u5230\u9009\u62e9\u6027\u7c98\u8d34,\u70b9\u51fb\u4fdd\u7559\u6e90\u683c\u5f0f\u7684\u9009\u9879\uff1b
7\u3001\u7c98\u8d34\u5b8c\u6210\u5c31\u53ef\u4ee5\u5427\u4e00\u4e2aEXCEL\u8868\u683c\u4e2d\u7684\u5185\u5bb9\u53ca\u683c\u5f0f\u5168\u90e8\u590d\u5236\u5230\u53e6\u4e00\u4e2a\u8868\u683c\u4e2d\u3002
\u6269\u5c55\u8d44\u6599\uff1a
excel\u64cd\u4f5c\u5c0f\u6280\u5de7
1\u3001\u5220\u9664\u91cd\u590d\u503c
\u9009\u53d6\u542b\u91cd\u590d\u503c\u7684\u5355\u5143\u683c\u533a\u57df\uff0c\u6570\u636e - \u5220\u9664\u91cd\u590d\u503c\u3002
2\u3001\u6309\u6708\u586b\u5145\u65e5\u671f
\u65e5\u671f\u6240\u5728\u5355\u5143\u683c\u5411\u4e0b\u62d6\u52a8\u590d\u5236\u540e\uff0c\u6253\u5f00\u7c98\u8d34\u5217\u8868\uff0c\u9009\u53d6\u201c\u4ee5\u6708\u586b\u5145\u201d\u3002
3\u3001\u5408\u5e76\u591a\u4e2a\u5355\u5143\u683c\u5185\u5bb9
\u628a\u5217\u5bbd\u8c03\u6574\u6210\u80fd\u5bb9\u6613\u5408\u5e76\u540e\u5b57\u7b26\uff0c\u7136\u540e\u9009\u53d6\u5408\u5e76\u7684\u533a\u57df - \u5f00\u59cb - \u586b\u5145 - \u4e24\u7aef\u5bf9\u9f50\u3002
4\u3001\u516c\u5f0f\u8f6c\u6570\u503c
\u9009\u53d6\u516c\u5f0f\u6240\u5728\u533a\u57df\uff0c\u590d\u5236 - \u7c98\u8d34 - \u7c98\u8d34\u4e3a\u6570\u503c\u3002
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表数据合并后的结果。效果如图所示。
可用按Ctrl键分别选中要复制的工作表标签，单击右键→移动或复制工作表→选定要复制到的工作薄（记得勾选“建立副本”），确定后就复制过去了。
右击想复制到另一个表中的工作表标签－－单击“移动或复制工作表”－－选择“新建工作薄”－－勾选“建立副本”－－确定
这样就复制了一个工作表，其他的如此操作直到全部完成。
把表格合并单元格
绛旓細excel琛ㄦ牸涓澶氫釜sheet鍐呭姹囨诲埌涓涓〃鏍间腑锛屽彲浠ユ寜鐓т互涓嬫楠よ繘琛屾搷浣滐細1銆佹墦寮EXCEL琛ㄦ牸锛岀偣鍑绘暟鎹夐」鍗涓殑鈥滅幇鏈夎繛鎺モ濄2銆佺偣鍑烩滄祻瑙堟洿澶氣濄3銆佹壘鍒伴渶瑕佹眹鎬荤殑琛ㄦ牸锛岀偣鍑绘墦寮銆4銆侀変腑鐩稿叧Sheet琛ㄦ牸锛岀偣鍑荤‘瀹氥5銆佸脊鍑哄鍏ユ暟鎹璇濇锛岀偣鍑荤‘瀹氥傘愬姞鍏ョぞ缇や竴璧峰涔犮6銆佸悓姝ラ1~5锛屼緷娆℃坊鍔犲叾浠朣h...
绛旓細1.鎵撳紑Excel鏂囨。锛岄変腑瑕佸鍒剁殑琛ㄦ牸;2.鎸変綇Ctrl閿紝鐐瑰嚮鈥滃鍒垛濇寜閽;3.鎸変綇Ctrl閿紝鐐瑰嚮鈥滅矘璐粹濇寜閽;4.閲嶅涓婅堪姝ラ锛屽嵆鍙畬鎴愬鍒跺涓竴鏍风殑琛ㄦ牸銆
绛旓細1銆侀鍏堥夋嫨鏁版嵁婧愬尯鍩燂紝鐐瑰嚮鈥滄彃鍏モ濓紝閫夋嫨鈥滄暟鎹忚琛ㄢ濄2銆侀夋嫨鏁版嵁閫忚琛ㄦ斁缃殑浣嶇疆锛屾湰渚嬩腑鏄笌鏁版嵁婧愭斁鍒板悓涓涓宸ヤ綔琛涓3銆佺劧鍚庡皢瀛楁鎷栧姩娣诲姞鍒颁笉鍚岀殑鍖洪棿涓4銆佸湪閫変腑鏁版嵁閫忚琛ㄧ殑鍓嶆彁涓嬶紝鐐瑰嚮鈥滆璁♀濋夐」鍗涓殑鈥滄姤琛ㄥ竷灞鈥濓紝閫夋嫨鈥滀互琛ㄦ牸褰㈠紡鈥濄5銆佺户缁偣鍑烩滆璁♀濋夐」鍗′腑鐨勨滄姤...
绛旓細濡備綍鎶婂涓EXCEL鏂囦欢姹囨诲埌涓涓EXCEL涓?1銆侀鍏堟墦寮鍏朵腑涓涓怑xcel銆戞枃妗ｏ紝濡備笅鍥炬墍绀恒傜劧鍚庣偣鍑汇愭暟鎹戯紝濡備笅鍥炬墍绀恒傜劧鍚庣偣鍑汇愭柊寤烘煡璇戯紝濡備笅鍥炬墍绀恒傜劧鍚庣偣鍑汇愪粠鏂囦欢銆戯紝濡備笅鍥炬墍绀恒傜劧鍚庣偣鍑汇愪粠宸ヤ綔绨裤戯紝濡備笅鍥炬墍绀恒2銆佸皢闇鍚堝苟鐨凟xcel鏂囦欢鏀惧湪鍚屼竴涓枃浠跺す涓傛墦寮鏂板缓鐨凟xcel鏂囦欢锛屾寜Al...
绛旓細1銆侀鍏堥変腑Excel琛ㄦ牸锛屽弻鍑绘墦寮銆2銆佺劧鍚庡湪璇ョ晫闈腑锛岄変腑鈥滄柟鏂规牸瀛愨閲鈥宸ヤ綔琛鈥濋噷鈥滄眹鎬绘媶鍒嗏濇寜閽3銆佸啀鑰呭湪璇ョ晫闈腑锛岄変腑鈥滄眹鎬诲ぇ甯堚濋夐」銆4銆佷箣鍚庡湪璇ョ晫闈腑锛岀偣鍑诲乏渚р滃绨挎眹鎬诲埌涓琛ㄢ濋夐」銆5銆佹帴鐫鍦ㄨ鐣岄潰涓紝鐐瑰嚮鈥滃紑濮嬧濇寜閽6銆佸叾娆″湪璇ョ晫闈腑锛岀偣鍑诲彸渚х殑鈥滄坊鍔犳枃浠垛濇寜閽7...
绛旓細濡備綍蹇鎶婂涓〃鏍鍐呭澶嶅埗鍒颁竴涓〃鏍间腑 1銆佹柊寤轰竴涓祫鏂欏す銆佸皢瑕佸悎骞剁殑琛ㄦ牸鏀惧埌閲岄潰銆佹柊寤轰竴涓〃鏍笺佺敤excel寮鍚佸彸鍑籗heet1 2銆侀夋嫨妫瑙嗙▼寮忕爜锛圥S锛歟xcel鏈夌潃涓椤癸紝WPS娌℃湁锛 3銆佸皢涓嬪垪绋嬪紡鐮佸鍒跺埌鏂囧瓧妗嗕腑锛 Sub 鍚堝苟褰撳墠鐩綍涓嬫墍鏈夊伐浣滅翱鐨勫叏閮ㄥ伐浣滆〃() Dim MyPath, MyName, AWbName...
绛旓細鏉愭枡/宸ュ叿锛Excel2010 1銆佷笅鍥句腑锛屾垜浠渶瑕佸皢ssheet2琛ㄦ牸涓殑鏁版嵁澶嶅埗鍒皊heet5鍒皊heet8閲岄潰銆2銆佹垜浠彲浠ラ変腑鏁版嵁锛岀劧鍚庝緷娆＄矘璐村埌鍚庨潰鐨剆heet琛ㄤ腑锛3銆侀鍏堟垜浠変腑sheet2琛ㄦ牸涓殑鏁版嵁閮ㄥ垎銆4銆佺劧鍚庣偣鍑籹heet5锛屼箣鍚庣偣鍑婚敭鐩樼殑shift鎸夐挳涓嶆斁锛屽啀娆＄偣鍑籹hee8锛屽憟鐜颁竴涓変腑鐨勬牸寮忋5銆佷箣鍚庡湪琛ㄦ牸鍐呭崟鍑诲彸閿...
绛旓細瑕佸皢澶氫釜Excel琛ㄦ牸涓殑鏁版嵁姹囬泦鍒颁竴涓〃鏍间腑锛屼綘鍙互浣跨敤浠ヤ笅鏂规硶锛1. 澶嶅埗绮樿创锛氳繖鏄渶绠鍗曠殑鏂规硶銆傛墦寮涓涓洰鏍嘐xcel宸ヤ綔绨匡紝鐒跺悗閫愪釜鎵撳紑鍏朵粬瑕佹眹闆嗘暟鎹殑Excel鏂囦欢銆傚湪婧愬伐浣滅翱涓夋嫨鏁版嵁鑼冨洿锛堜緥濡傦紝閫変腑鏁翠釜宸ヤ綔琛鎴栫壒瀹氭暟鎹尯鍩燂級锛岀劧鍚庡鍒讹紙Ctrl + C锛夛紝鍒囨崲鍒扮洰鏍囧伐浣滅翱锛岄夋嫨瑕佺矘璐寸殑浣嶇疆锛岀劧鍚...
绛旓細excel涓涓娆℃у鍒澶氫釜鏍煎紡鐩稿悓琛ㄦ牸鐨勫叿浣撴楠ゅ涓嬶細1銆侀鍏堟垜浠湪Sheet3涓柊寤轰竴涓灏嗚澶鍒鐨勮〃鏍鍐呭銆2銆佹垜浠湪Sheet3閫変腑瑕佸鍒跺唴瀹圭殑鍗曞厓鏍笺傛鏃舵寜涓婥trl鍚屾椂锛岀敤榧犳爣宸﹂敭閫変腑鍏跺畠琛⊿heet1锛孲heet2锛孲heet4锛孲heet5鎴栬呭叾浠栨洿澶氱殑琛ㄦ牸锛岄変腑鐨凷heet鑳屾櫙鑹插皢浼氬彉鎴愮櫧鑹层傜壒鍒彁绀猴紝姝ゆ椂瑕佸鍒剁殑鍗曞厓鏍...
绛旓細鎵撳紑 WPS 琛ㄦ牸锛灏嗗涓 Excel 琛ㄦ牸涓殑鏁版嵁鍒嗗埆澶嶅埗鍒 WPS 琛ㄦ牸涓笉鍚岀殑宸ヤ綔琛ㄤ腑銆傞変腑鏌愪竴涓宸ヤ綔琛ㄤ腑鐨浠绘剰鍗曞厓鏍硷紝鐐瑰嚮鈥滄暟鎹濋夐」鍗★紝鐒跺悗閫夋嫨鈥滄暟鎹忚琛ㄢ濆懡浠ゃ傚湪鈥滄暟鎹忚琛ㄢ濆璇濇涓紝鎸夌収鎸囧閫愭閫夋嫨闇瑕佸悎骞剁殑鏁版嵁鑼冨洿锛屼互鍙濡備綍鏄剧ず銆佹眹鎬诲拰绛涢夋暟鎹傜偣鍑烩滅‘瀹氣濆悗锛學PS 琛ㄦ牸灏嗕細鑷姩...
