一、excel表格中制作多张小表
方法一:
Excel一般自动默认3个sheet,即sheet1、sheet2、sheet3.如果这三个sheet不够用,你可以点击插入——工作表,bai就可以插入新的sheet。将每个excel中的内容分别复制到每个sheet上,对sheet重命名即可。
方法二:
建一个要存放所有工作表的总文件,比如叫“汇总”然后依次打开所有的文件。在第一个文件,比如“客户”,把鼠标挪到左下角的工作表标签的地方,点右键,“移动和复制工作表”,在对话框中选择目标工作簿为“客户”,这样工作表就复制过去了,而且自动关闭,并保留“客户”这个名称。
依次操作其他文件。前提是要把这些小文件都打开。之所以一次打开全部文件,这样做的好处是不会有漏掉和重复的。一个个打开也一样。这个操作很简单,只是文字描述比较费劲。和文件的另存为是一样的。
二、excel怎么把多张表格合并成一个
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码(PS:excel有着一项,WPS没有)
3、将下列代码复制到文本框中:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。
三、如何在一个excel里面设置多个工作表
一般excel工作簿里默认知是3个工作表,你要想在打开的工作簿里增加工作表的数量,只有一个一个的插入或者是移动复制工作表,一次最多可以道插入3个工作表,方法是:选中表格底端所有工作表标签,然后右击工作表名,点击插入,工作表。
如果是想在所有新建工作簿里,每次打开就有多个工作表,比如版打开新建工作簿,我想需要里面有10个工作表,可以在菜单栏→权工具→选项→常规→新工作簿内的工作表数
框里输入10,确定后关闭程序,在下次新建工作簿时,就是10个工作表了
03版