1、首先,按组合键“ALT+F11”打开VBE编辑器,在工程窗口下的“MicrosoftExcel”对象进行单击鼠标右键,再在弹出的框再进行如图所示的操作。
2、然后,在其中粘贴下面的代码:再进行保存。
Sub工作簿间工作表合并
()OptionExplicitSubhbgzb()。
DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger,hrowcAsInteger</p>flag=False。
Fori=1ToSheets.Count
IfSheets(i).Name="合并数据"Thenflag=True。
Next
Ifflag=FalseThen
Setsh=Worksheets.Add
sh.Name="合并数据"。
Sheets("合并数据").Moveafter:=Sheets(Sheets.Count)。
EndIf
Fori=1ToSheets.Count
IfSheets(i).Name<>"合并数据"Then。
hrow=Sheets("合并数据").UsedRange.Row。
hrowc=Sheets("合并数据").UsedRange.Rows.Count。
Ifhrowc=1Then
Sheets(i).UsedRange.CopySheets("合并数据").Cells(hrow,1).End(xlUp)。
Else
Sheets(i).UsedRange.CopySheets("合并数据").Cells(hrow+hrowc-1,1).Offset(1,0)。
EndIf
EndIf
Nexti
EndSub
3、然后,关闭该窗口,打开Excel软件,点击界面上方的“开发工具”选项卡。
4、然后,点击其下方选项中的“加载宏”。
5、然后,在弹出的框中选择“工作簿间工作表合并“,再点击其中的”执行“按钮。
6、然后,在弹出的窗口中选择要合并的工作簿,再点击”打开“即可。
7、这样,多个工作簿就合并成一个了。
还没有评论,来说两句吧...