此宏用于合并同一工作簿内的所有工作表!.docxVIP

//*

此宏用于合并同一工作簿内的所有工作表！

打开你的工作簿，按下alt+F11，插入-模块，看见一个模块1，复制下面的的内容，然后运行。

你的工具-宏-安全性，设置为中，才能运行此宏。

按照提示做就可以了。注意：如果工作表很多可能需要很长时间，请耐心等待！

*//

==========以下是宏===============

Sub合并各工作表内容()

sp=InputBox(各表内容之间，间隔几行？不输则默认为0)

Ifsp=Then

?sp=0

EndIf

st=InputBox(各表从第几行开始合并？不输则默认为2)

Ifst=Then

??st=2

EndIf

Sheets(1).Select

Sheets.Add

?

?Ifst1Then

???Sheets(2).Select

???Rows(1:CStr(st-1)).Select

???Selection.Copy

???Sheets(1).Select

???Range(A1).Select

???ActiveSheet.Paste

?y=st-1

?EndIf

?

Fori=2ToSheets.Count

?Sheets(i).Select

????Forv=1To256

???????zd