利用excel宏计算快速合并单个excel表中的多个sheet工作页
很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题，有需要的朋友可以参考一下哦，希望能对大家有所帮助！
方法/步骤
首先我们要有自己的excel数据，并且我们需要的是microsoft excel，WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。
看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图：
在新建的sheet表中右键，找到查看代码，然后看到宏计算界面。如图所示：
看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下：
代码如下:
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
做完上面的事情，然后只需要点击工具栏上面的运行下的运行子过程/用户窗体就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示：
合并后的效果如下图，我们看到的是合并之后有8000多行，就是205页合并后的结果。谢谢。如有疑问，请留言。
现在很多人用的WPS无法实现这个计算，只有功能健全的microsoft excel可以。
绛旓細绗竴锛岀敤VBA瀹忓垽鏂璭xcel鍚堝苟鍗曞厓鏍 鍦╡xcel涓寜涓婣LT+F11锛屾墦寮VBE缂栬緫鍣紝澶嶅埗涓嬮潰浠ｇ爜锛屾寜F5閿繍琛岋紝濡傛灉A1鍗曞厓鏍间负鍚堝苟鍗曞厓鏍硷紝鍒欏脊鍑烘秷鎭鎻愮ず姝ゅ崟鍏冩牸涓哄悎骞跺崟鍏冩牸锛屽鏋淎1鍗曞厓鏍兼病鏈夊悎骞讹紝娑堟伅妗嗘彁绀烘鍗曞厓鏍间笉鏄悎骞跺崟鍏冩牸銆係ub excel鍚堝苟鍗曞厓鏍煎畯()If Range("A1").MergeCells Then MsgBox "...
绛旓細鏂规硶涓夛細浣跨敤 VBA 瀹 濡傛灉闇瑕佸澶ч噺鏁版嵁杩涜鍚堝苟锛屽彲浠ヤ娇鐢 VBA 瀹忔潵瀹炵幇銆備互涓嬫槸涓涓畝鍗曠殑 VBA 瀹忥細Sub MergeData()' 瀹氫箟鍙橀噺 Dim rng As Range Dim strResult As String ' 鑾峰彇瑕佸悎骞剁殑鍗曞厓鏍艰寖鍥 Set rng = Range("A1:A2")' 鍚堝苟鍗曞厓鏍 strResult = Join(rng.Value, ",")' 灏嗗悎骞...
绛旓細1銆佹墦寮銆岃〃鏍硷紙Excel锛夈嶆枃妗ｏ紱2銆佺偣鍑銆屾暟鎹-鍚堝苟琛ㄦ牸-澶氫釜宸ヤ綔琛ㄥ悎骞舵垚涓涓伐浣滆〃銆嶏紱3銆佸嬀閫夐渶鍚堝苟鐨勫伐浣滆〃鍗冲彲銆傛彁绀猴細鍦ㄨ缃悎骞跺伐浣滆〃鏃朵篃鍙坊鍔犲叾浠栥岃〃鏍硷紙Excel锛夈嶆枃妗ｆ潵閫夋嫨鍏朵粬鏂囨。鐨勫伐浣滆〃鏉ュ悎骞躲
绛旓細棣栧厛閫変腑姹囨诲伐浣滆杽涓殑A1鍗曞厓鏍硷紝閫夋嫨鏁版嵁锛岀偣鍑诲悎骞惰绠 姝ゆ椂鍑虹幇鍚堝苟璁＄畻绐楀彛 閫変腑鍗椾含宸ヤ綔绨夸腑鐨凙3鍒癇6鍗曞厓鏍硷紝鐐瑰嚮鍚堝苟璁＄畻绐楀彛涓婄殑娣诲姞鎸夐挳 閭ｄ箞灏辨坊鍔犲埌鏁版嵁绐楀彛鐨勫紩鐢ㄤ綅缃爮涓簡 鎸夌収鍚屾牱鐨勬柟娉曪紝灏嗗叾浣欎笁涓伐浣滅翱涓殑鏁版嵁鍗曞厓鏍兼坊鍔犺繘鍘 鐐瑰嚮纭畾鎸夐挳 鐪嬪埌浜嗗惂锛岀粨鏋滃嚭鏉ヤ簡锛屽凡缁忓皢鍥涗釜宸ヤ綔钖勪腑鐨...
绛旓細1. 浣跨敤鈥滃悎骞跺崟鍏冩牸鈥濆姛鑳斤細棣栧厛锛屾墦寮涓涓柊鐨凟xcel宸ヤ綔琛紝鐒跺悗灏嗚鍚堝苟鐨凟xcel鏂囦欢閫愪釜鎵撳紑骞跺鍒堕渶瑕佸悎骞剁殑鏁版嵁锛岀矘璐村埌鏂扮殑宸ヤ綔琛ㄤ腑銆傛帴鐫锛屼娇鐢ㄢ滃悎骞跺崟鍏冩牸鈥濆姛鑳藉皢鏁版嵁鎸夐渶鍚堝苟锛屾渶鍚庡啀鏍规嵁闇瑕佽繘琛屾眹鎬昏绠椼2. 浣跨敤鈥滄暟鎹忚琛ㄢ濆姛鑳斤細鍦‥xcel涓紝鎴戜滑鍙互鍒╃敤鏁版嵁閫忚琛ㄥ姛鑳芥潵瀵规暟鎹繘琛屾眹鎬诲拰...
绛旓細鍦ㄦ柊寤虹殑sheet琛ㄤ腑鍙抽敭锛屾壘鍒版煡鐪嬩唬鐮侊紝鐒跺悗鐪嬪埌瀹忚绠鐣岄潰銆傚鍥炬墍绀猴細鐪嬪埌瀹忚绠楃晫闈紝鎴戜滑灏卞彧闇瑕佹妸涓嬮潰鐨勪唬鐮佸鍒惰繘鍘伙紝浠ｇ爜濡備笅锛屾晥鏋滃涓嬶細浠ｇ爜濡備笅:Sub 鍚堝苟褰撳墠宸ヤ綔绨夸笅鐨勬墍鏈夊伐浣滆〃()Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name ...
绛旓細鍒╃敤VBA灏嗘暟鎹尯鍩熶笉瀹氱殑澶氫釜宸ヤ綔琛ㄦ暟鎹蹇熷悎骞鍒颁竴涓伐浣滆〃鏂规硶銆傛湁闇瑕佺殑鏈嬪弸鍙互璺熺潃鏁欑▼涓璧锋潵瀛︿範锛佹柟娉/姝ラ鍒嗗埆鏈夊伐浣滆〃1銆2銆3鏁版嵁鍖哄煙濡備笅鍥炬墍绀猴細鎸堿LT+F11鎵撳紑VBE缂栬緫鍣紝鍦ㄥ伐绋嬬獥鍙ｄ笅鐨凪icrosoftExcel瀵硅薄鍙抽敭-鎻掑叆-妯″潡锛屾柊寤轰竴涓ā鍧1銆傝緭鍏ュ涓嬩唬鐮侊細澶嶅埗浠ｇ爜浠ｇ爜濡備笅:OptionExplicitSubhbgzb...
绛旓細VBA鍙互瀹炵幇璁℃暟锛屽苟鍚堝苟鍗曞厓鏍兼搷浣溿傛搷浣滅郴缁燂細win10锛涜蒋浠剁増鏈細Office2007 涓句緥璇存槑濡備笅锛1.鍒╃敤VBA锛屽A鍒楁瘡5琛岃鏁板苟鍚堝苟鍗曞厓鏍硷紝灏嗙粺璁＄粨鏋滆祴浜堝悎骞跺崟鍏冩牸鍚庣殑鏂板崟鍏冩牸涓細2.Alt+F11锛岃緭鍏ヤ唬鐮佸涓嬶細浠ｇ爜娉ㄩ噴宸茬粰鍑恒3.F8鎵ц浠ｇ爜锛岃繑鍥Excel锛岀粨鏋滃涓嬶細
绛旓細VBA浠ｇ爜濡備笅锛歄ption ExplicitSub 鍚堝苟A鍒楀埌B鍒() Dim i, j, v i = 1 While Cells(i, 1) <> "" v = Cells(i, 1) j = i + 1 While Cells(j, 1) = v j = j + 1 Wend j = j - 1 Cells(i, 2) = Cells(i, 1) If i <> j The...
绛旓細涓嶆曢夯鐑︼紝鍏堥夋嫨A4鍜孊4锛屽彸閿紝璁剧疆鍗曞厓鏍兼牸寮忥紝鍚堝苟鍗曞厓鏍笺傜劧鍚庡彸鎵嬬敤榧犳爣閫夋嫨A5鍜孊5锛屽乏鎵嬫寜閿洏涓婄殑F4锛... 澶氱殑璇濓紝鐢ㄥ畯銆傚悓鏃舵寜Alt鍜孎11锛岀偣VB鐣岄潰鐨勮彍鍗曪紝鎻掑叆锛屾ā鍧楋紝鍦ㄦ柊绐楀彛涓矘璐村涓嬩唬鐮侊細Sub Macro3()Dim i As Integer For i = 4 To 100 Range(Cells(i, 1), Cells(i, 2)...
