有excel 1和excel 2等多个excel表,分别各有4个sheet,如何快速将这这些excel表中的sheet表分别合并放在一个EXCEL中的4个sheet中。
1、打开需要汇总分析的Excel表格,选择Excel表格上方的“开发工具”选项。
2、然后点击“宏”按钮进行程序编写。
3、然后输入汇总程序的名称,点击编辑按钮。
4、写入程序代码,这里利用的是Do loop until和IF then 语句。汇总的要求为筛选出表格中男性、本科学历、在岗人员的名单。
5、在开发工具选项中选择插入一个按钮控件。
6、选中插入的按钮控件,单击鼠标右键选择“指定宏”选项。
7、将编写的汇总程序制定至按钮控件上,然后点击确定按钮。
8、点击按钮控件即可利用ExcelVBA程序完成对表格的汇总分析。
一:看上图,打开工作表,-开发工具-VB工具-双击模块1-复制代码-保存!
代码如下:
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
按照上图操作,完成即可!
本回答被网友采纳