快速合并单个excel表中的多个sheet的工作页

快速合并单个excel表中的多个Sheet的工作页
很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页,
多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复
制粘贴的话,就比较麻烦.下面我就介绍一种利用excel的宏计算来解决这个问题.
2. 看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了
我们现在开始合并，首先要在最前页新建一个工作表。

如图：
3. 在新建的Sheet表中右键”，找到查看代码”,然后看到宏计算界面如图所示:
4。

看到宏计算界面,我们就只需要把下面的代码复制进去，代码如下,效果如下：
Sub合并当前工作簿下的所有工作表（)
APPliCati On 。

Scree nUpdati ng = False
FOr j = 1 To SheetS.Cou nt
If SheetS（j）。

Name <〉 The n
X = Ran ge(”A65536")。

E nd(xlUp ）。

Row + 1
SheetS（j）。

UsedRa nge.Copy Cells(X, 1)
End If
NeXt
Ran ge（”B1”)。

Select
APPIiCati on .Scree nUpdat ing = TrUe
MSgBOX "当前工作簿下的全部工作表已经合并完毕！”,
VbInformation，”提
示"
End Sub
5. 做完上面的事情，然后只需要点击工具栏上面的 运行”下的运行子过
程/用户窗体”就可以了，合并完之后会有提示。

提示完成之后就可以把宏计 算界面关闭了。

如图所示:
6.
合并后的效果如下图，我们看到的是合并之后有 8000多行，就是205
页合并后的结果。

谢谢.如有疑问,请留言。

Γ⅞ Viπn*f⅛ Iιc⅞l - ■曲和ill 仙 ¢1 SlhHl ∣⅛ 丁 峙申 帕為*1■兢
φ⅛c φ Jba-I ll Ldj ΦM ⅞∏ SEi I iL Of 肝聲 初
5W ∣<UQ□妙《< m 屮 IM∙ Ir a f 也如怦叶 他细血LQe (F*E ■
⅛ι Λi*⅛≡∑^l ∣^ewi∙llff ft •'
StRmJ⅜d⅛∣ l ∣-4 f ∣J ∣S4
j 文憚灼 畑：EJ 匹 如 ≡Λσ∣ ≡5∏a iff≡β)远衍® I ≡Φ Wfft⅛⅛ βς he
坦二旦丄 1Λ ∙ VBAPtripκi
7τ WheT I «i«f t EEC«1
Sb««tl i⅞klS
Sħ**⅝10 <>«(« g
Q r ⅜⅞!
g a«c g
g s⅛⅜*⅞ιra ≤^**tioι *1β⅞fit) SbtU
D1 邮IL w⅛,
f ⅞4∙l⅛ « F⅞lιt Ha SJkl ⅛JrAafklTt F⅛l"
金并由射工斥簿孑俪!•工作壽0
Mpl :”“加 S⅛τ∣∣t⅛l⅛4i i t ∣.ι⅛ ≡ F⅛l>t f*r ; ≡ I T≠ S¾*t*⅝ C⅛sβt
If $>*#ti.1j) Mi*⅜ O A⅞Λ∣**5⅛⅞il T⅛Λ* H ^ ∣⅛w<■厂
M»$»・) 8M⅛l⅜) + 1
≤‰t∙t i
5 (j) Us«dOt«Ij(*. C*P7 Cillx-Q ri 1) EM If
⅛*K⅝ ħfe n<*i *)S*Uc⅞ A>∣kl Lf k⅞ ∣i Φħ ~ ■9«L ■二 ______ _____ ____ ___ _____ 一
Ehi 沁 I 1
U 0也 S<τ**bl⅛Jk⅞LM 1 TrVt
T Jeuv>TSTr⅛Iff ⅛H⅛⅛ι ∖ VHR 伽・山忤 审亍
⅛ ir⅛.^ - ⅛j⅛rt ∣ :
Bif iT<t3771HATfl A
F*r
J 1⅝⅛M>Γ,⅞I*)
⅜4kllM4li44 J JP **∣ ⅛4⅛ι ∣⅞E 1 Tr «■
5 讥“酋角■=丘；斗∙ W * v≡.r! 1r-≡ r Γf ：-
KM Mi
It fλvvl≡⅛ ■・■* ⅞≠Uv^i⅛MR • TvM I ■ ⅛⅛-⅛J I M⅛M J > CFitik 1' ⅛+4∣llU ∣ uτf U L HW
C<⅛T C !■4 If
■ SIIMU
X
-3r ⅛l ∣ «ti QB⅛> SiH :
⅛Γ⅛C∙歸
Q)；汨£1 IM ∣.■:材艸乎世 t^⅞W *屮 £•
■ t T∙∙ 5⅛iτ
0=七
Shvvtl Tbri4ΛiL*vt
I TL ∣⅛l*⅞u i l* G1 ⅝ F ⅜1 τ
4
Σħ⅞⅜tl(M sb*∙tio⅞
Slhtt i
C Ioe
««■)■
)•:•:
斟
越聲二
*tB6O
C
END
皆
7
SoLITuAFRJCA
Sa^h Ah ⅛cι CiiPt TOMn 7⅛5
8
ZA
SOUTH AFRJCA w ⅛⅞∣ern c ⅛pe BlgEKP Etzrkd
74J1
⅞
ZA SClUni AFraCA CAPE ’CTMi CApE TmVTJ 74^0
ZA SOUTH AFRiCA We ⅞∣⅛rn Ctp4 BehHe 7530
Il
ZA SOUTHAFRJCA W ⅛sltπι Caf^ DdFbaO ⅛⅜ll ⅝
7⅛5C
ZA
S(XJIH AFRICA CAPETafWh SRACKEltf 7
Etl T 剤
ZA
SoLrTHAFRICA Soiith AiKa CaPe Town 774C
I '»
SOUTHAFraCA Wstem cap ⅜
c ⅛pe tow TWO I
ZA
SoiIW AFRJcA ，
∣Ve i SIenl Cap«
Ope T<wrn
Γ92⅛
S
ZA
SoUTM AFRICA -----------
----------- We ⅞ι〈t∏⅞ CWe PrCMfl<⅛
F ⅛h HI^k
丹75
7
ZA
SOUTHAiFR3CA ⅛⅛⅛⅛Eβ<Ti PffW ∣!IriCt
C9⅞pe Iown
WKl
ZA
SoUTHAFRIaA 比舲Tswn
C 〉∏⅞ρt ㈱y Wo
P M ScHJTH AFRJGA SChtfth AAne I S
Stotmfonreiri ⅛⅛）1 )
IW
71MSAB ⅛VE
HarK4
ZfiJ
1
4
ao ⅛ *•—予⅛⅛⅛ ao ⅛ /Bz
Fiji! :J f
⅛。

＊。

—'— i Lz,
a j ⅛ 2 ∣⅞ J ⅛
注意：
现在很多人用的 WPS 无法实现这个计算，只有功能健全的 microsoft
excel 可以。