打开一张Excel工作簿,我们可以在里面创建多个工作表,不过大部分人都是依次点击工作簿左下角的sheet右侧的+号逐个创建的,如果需要创建多个新的工作表,这种方法显示是不够高效的,下面小编教给大家一招快速创建多个工作表的方法,希望对大家有帮助!
可能很多小伙伴始终分不清楚工作簿和工作表之间的区别,为了更好的讲解小编今天的内容,所以在这里首先将这两个概念区分一下,我们每次打开Excel软件的时候,系统要求我们创建的新表格,那个是工作簿,如图一,而打开工作簿左下角一个个的sheet表格才是工作表,见图二...
小编今天要说的就是创建工作表的方法,假如我们想要创建1月到12月份这么12张工作表,有什么快速的办法吗?传统方法是点击“+”,然后给工作表重命名,如图所示...
以上方法是不够高效的,想要快速创建,那么我们首先在空白单元格某一列中依次输入1月-12月这么一组数据(注:第一列是月份两个字),如下图所示;
输入完成以后,选中这一列数据选择“插入”-“数据透视表”,然后在弹出的数据透视表对话框无需做任何设置,直接点击“确定”即可;
点击确定之后,表格的右侧就会弹出“数据透视表字段”窗口,我们勾选其中的“月份”选项,然后按住鼠标左键拖动到下方的筛选器中,见下图...
接下来返回到表格,在左上角点击“数据透视表”下方的三角形下拉按钮,点击下拉菜单中的“选项”;
同样的选项右侧还是一个下拉按钮,点击之后选择“显示报表筛选页”,然后在弹出的对话框里直接点“确定”就可以;
点击确定之后,我们就会发现该工作簿下方增加了1月到12月这么一组新的工作表,如图所示...
如何将多个Excel表中的格式相同数据汇总
需求:有多个Excel表格,每个表格的sheet页数据格式相同,需要将所有Excel表格中的sheet页数据汇总到一个新的Excel表格。
难点:将多个Excel表中的sheet页(格式相同)的数据汇总另一个工作表中
步骤:
1、将所有需要合并的Excel表格放到同一个目录下面,并新建一个需要汇总结果的空Excel表格
2、打开空白的汇总表,光标移动到A1,找到菜单“开发工具-》vb编辑器”
3、将如下VB代码复制到编辑器中,点击菜单“运行-》运行子过程”
Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"End Sub
4、运行后表格数据已汇总,结果如下,但是有重复的表头,需要通过筛选的方式将多余的表头删除掉即可