excel如何分别开表格

1.把同一张excel表分开填怎么再合成一张?

打开excel，按alt+f11，在sheet1(sheet)右边的框框里面copy下面这些代码，再点击开始运行，就是类似△的这个标志，就可以了，后面你照着弹出来框框操作就行了。

宏：多个文件表合到一个文件表的多个SHEET中 Sub CombineWorkbooks() Dim FilesToOpen, ft Dim x As Integer Application。 ScreenUpdating = False On Error GoTo errhandler FilesToOpen = Application。

GetOpenFilename _ (FileFilter:="Micrsofe Excel文件（*。 xls）, *。

xls", _ MultiSelect:=True, Title：="要合并的文件"） If TypeName(FilesToOpen) = "boolean" Then MsgBox "没有选定文件" 'GoTo errhandler End If x = 1 While x Open(Filename:=FilesToOpen(x)) wk。Sheets()。

Move after:=ThisWorkbook。Sheets _ (ThisWorkbook。

Sheets。Count) x = x + 1 Wend MsgBox "合并成功完成！" errhandler: 'MsgBox Err。

Description 'Resume errhandler End Sub。