Excel很多页的数据，少的有几十页，多的可能有几百页，如何合并到一个页面做数据分析？ 我们是做展览的公司，我需要用EXCEL做一个数据表格，就是通...
\u5982\u4f55\u7528excel\u505a\u51fa\u6f02\u4eae\u7684\u6570\u636e\u5206\u6790\u56fe 很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。工具/原料
excel数据
microsoft office
方法/步骤
1
首先我们要有自己的excel数据，并且我们需要的是microsoft excel，WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。
2
看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图：
3
在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。如图所示：
4
看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下：
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
5
做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示：
6
合并后的效果如下图，我们看到的是合并之后有8000多行，就是205页合并后的结果。谢谢。如有疑问，请留言。
END
注意事项
现在很多人用的WPS无法实现这个计算，只有功能健全的microsoft excel可以。
如何快速合并单个excel表中的多个sheet的工作页_百度经验
绛旓細鏂规硶/姝ラ 棣栧厛鎴戜滑瑕佹湁鑷繁鐨excel鏁版嵁锛骞朵笖鎴戜滑闇瑕佺殑鏄痬icrosoft excel锛學PS娌℃湁杩欎簺璐熻矗鐨勫姛鑳姐傛瘮濡傛垜涓嬮潰涓句緥鐨勶紝鎴戣嚜宸辨湁205椤电殑鏁版嵁闇瑕佸悎骞讹紝濡傚浘鎵绀恒傜湅鍒杩欎箞澶氭暟鎹椤佃鍚堝苟锛屽鏋滄槸澶嶅埗绮樿创鐨勮瘽锛屽伐浣滈噺灏卞緢澶т簡銆傛垜浠幇鍦ㄥ紑濮嬪悎骞讹紝棣栧厛瑕佸湪鏈鍓嶉〉鏂板缓涓涓伐浣滆〃銆傚鍥撅細鍦ㄦ柊寤虹殑sheet琛ㄤ腑鍙...
绛旓細鍏堟妸涓や釜琛ㄦ寜鐩稿悓璁剧疆鎺掑簭锛屽嵆绗竴鍏抽敭瀛椼佺浜屽叧閿瓧銆佸崌搴忕瓑瑕佷竴鑷淬傝繖鏍蜂袱涓〃涓浉鍚屽唴瀹瑰氨浼氬嚭鐜板湪鐩稿悓鐨勮鍙蜂腑銆傜劧鍚庡湪sheet2琛ㄤ腑锛岄変竴涓病鏁版嵁鐨勫垪锛屽亣璁綞鍒楋紝鍦‥2涓紙鍋囪涓や釜琛鐨勬暟鎹浠庣浜岃寮濮嬶級杈撳叆鍏紡锛=if(sheet1!c2=sheet2!c2,"鈭","鏈夎")...
绛旓細1. 璧勬枡澶鐨勬暟鎹湪A鍒 A2:A11 2. 璧勬枡灏戠殑鏁版嵁鍦˙鍒 B2:B6 3. 瑕佹彁鍙朅鍒楀鍑築鍒鐨勬暟鎹, 杈撳叆涓嬮潰鍏紡鍗冲彲:=INDEX(A:A,SMALL(IF(COUNTIF(B2:B6,A2:A11)=0,ROW(A2:A11),4^8),ROW(A1)))&""4. 绮樿创瀹屽悗, 缁撴灉鍙兘浼氭樉绀洪敊璇, 鍙屽嚮璇ュ崟鍏冩牸, 鎸 Ctrl+shift+鍥炶溅 涓夐敭缁撴潫 5. ...
绛旓細Reference 浣滀负鍋忕Щ閲忓弬鐓х郴鐨勫紩鐢ㄥ尯鍩熴俁eference蹇呴』涓哄鍗曞厓鏍兼垨鐩歌繛鍗曞厓鏍煎尯鍩熺殑寮曠敤锛涘惁鍒欙紝鍑芥暟OFFSET杩斿洖閿欒鍊#VALUE!銆俁ows 鐩稿浜庡亸绉婚噺鍙傜収绯荤殑宸︿笂瑙掑崟鍏冩牸锛屼笂锛堜笅锛夊亸绉荤殑琛屾暟銆傚鏋滀娇鐢5浣滀负鍙傛暟Rows锛屽垯璇存槑鐩爣寮曠敤鍖哄煙鐨勫乏涓婅鍗曞厓鏍兼瘮reference浣5琛屻傝鏁板彲涓烘鏁帮紙浠ｈ〃鍦ㄨ捣濮嬪紩鐢ㄧ殑...
绛旓細鍙互鐢╲lookup锛堬級鍑芥暟鏉ュ疄鐜拌繖涓姛鑳 璇峰弬闃 鍦ㄨ〃鏍兼垨鏁板兼暟缁勭殑棣栧垪鏌ユ壘鎸囧畾鐨勬暟鍊硷紝骞剁敱姝よ繑鍥炶〃鏍兼垨鏁扮粍褰撳墠琛屼腑鎸囧畾鍒楀鐨勬暟鍊笺傚綋姣旇緝鍊间綅浜鏁版嵁琛ㄩ鍒楁椂锛屽彲浠ヤ娇鐢ㄥ嚱鏁 VLOOKUP 浠ｆ浛鍑芥暟 HLOOKUP銆傚湪 VLOOKUP 涓殑 V 浠ｈ〃鍨傜洿銆傝娉 VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)...
绛旓細1銆佸鏋滄槸绗竴绉嶆儏鍐碉紝璇风湅鐧惧害缁忛獙鈥滅綉椤甸摼鎺モ2銆佸鏋滄槸绗簩绉嶆儏鍐碉紝鎸変互涓嬫楠よВ鍐炽(1)鎵撳紑excel鏂囦欢锛屽湪閲岄潰鎻掑叆涓涓枃鏈锛岀劧鍚庨変腑瀹冦傚涓嬪浘 (2)閿洏鎸塁trl+G锛屽湪寮瑰嚭鐨勫璇濇涓偣鍑诲乏涓嬭鈥滃畾浣嶆潯浠垛濇寜閽紝鍦ㄢ滃湪瀹氫綅鏉′欢鈥濆璇濇涓偣鍑诲乏涓嬭閫夐」鈥滃璞♀濓紝鐐瑰嚮鈥滅‘瀹氣濄傚涓嬪浘锛...
绛旓細鍋囧鍙湁A鍒楁湁鏁版嵁锛姣忎竴椤垫湁20琛屻傚湪B1涓緭鍏ュ叕寮忥細=OFFSET($A$1,ROW($A1)-1+20*(COLUMN(A1)-1),0)閫変腑B1鍚戜笅濉厖鑷矪20锛屽啀鍚戝彸濉厖銆傦紙鍙牴鎹瘡椤佃鏁帮紝瀵瑰叕寮忚繘琛屾洿鏀癸紝濡傛瘡椤垫湁30琛岋紝鎶20鏀规垚30銆傦級鏈鍚庨殣钘廇鍒楀嵆鍙傛垨鑰匔trl+A鍏ㄩ夛紝澶嶅埗锛屽彸鍑婚夋嫨鈥濋夋嫨鎬х矘璐粹滀负鈥濇暟鍊尖滐紝鍐嶅垹闄...
绛旓細鍋囪婧愭暟鎹湪sheet1涓锛屾暟鎹涓篈/B涓ゅ垪锛屽叾涓瑼鍒楁暟鎹拰2琛(sheet2锛変腑鐨凙鍒楀搴斻傚湪sheet2鐨凚1杈撳叆 =VLOOKUP(A4,Sheet1!A:B,2,0)锛岀劧鍚庡悜涓嬭嚜鍔ㄥ～鍏
绛旓細浣犲彲浠ユ鏌鏁版嵁婧愭槸鍚﹀彂鐢熶簡浠讳綍鏇存敼锛屼互纭畾鏄惁鏄繖涓師鍥犲鑷寸殑銆傚鏋滀互涓婃柟娉曢兘娌℃湁瑙ｅ喅闂锛岃繕鍙互灏濊瘯鎵撳紑鏂囦欢鐨勪慨璁㈣褰曪紝鏌ョ湅鏄惁鏈夊叾浠栫敤鎴锋垨浣犺嚜宸卞湪缂栬緫杩囩▼涓琛ㄦ牸杩涜浜嗕慨鏀广傚彟澶栵紝纭繚浣犲湪鏌ョ湅姝ｇ‘鐨勬枃浠讹紝骞舵鏌ユ槸鍚︽湁澶囦唤鏂囦欢鍙互鎭㈠涓㈠け鐨勮銆
绛旓細鍙兘鏄互涓嬪嚑涓師鍥犲鑷寸殑锛欵xcel琛ㄦ牸琚殣钘忎簡鍒楋細鍦Excel涓紝浣犲彲浠ュ皢鍗曞厓鏍笺佽鎴栧垪闅愯棌璧锋潵锛屽鏋滀綘涓嶅皬蹇冮殣钘忎簡鏌愪簺鍒楋紝閭ｄ箞灏变細鍑虹幇灏戜袱鍒楃殑鎯呭喌銆備綘鍙互鍙抽敭鍗曞嚮琛ㄥご涓婄殑鍒楀瓧姣嶏紝鐪嬬湅鏄惁鏈夆滆В闄ら殣钘忊濋夐」锛屽鏋滄湁锛屽氨鍙互灏嗛殣钘忕殑鍒楁仮澶嶆樉绀恒鏁版嵁鍒犻櫎鎴栬呮嫋鍔ㄥ鑷翠簡琛ㄦ牸鍙樺寲锛氬鏋滀綘鍦ㄨ〃鏍间腑鍒犻櫎...
