摘要： 下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。
现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。
Excel表格常用快捷键大全含快捷键操作演示（二）
第十一，选定当前活动单元格区域 比如，咱们需要给A1：C18单元格区域加上边框，首先得选中这些单元格。除了用鼠标拖动选择之外，还可以使用下面的两个快捷键：鼠标随便放在A1：C18单元格区域之间的任意单元格，按下Ctrl Shift *（星号）或者Ctrl A就可以快速选定当前活动单元格区域。第十二，excel选定所
一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。
合并工作表操作步骤：
新建一个excel文件，按ALT F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。
Sub合并工作簿()
DimFilesToOpen,wbAsWorkbook,shtAsWorksheet
DimxAsInteger
OnErrorGoToErrHandler
Application.ScreenUpdating=False
FilesToOpen=Application.GetOpenFilename_
(FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",_
MultiSelect:=True,Title:="FilestoMerge")
IfTypeName(FilesToOpen)="Boolean"Then
MsgBox"NoFileswereselected"
GoToExitHandler
EndIf
x=1
Whilex<=UBound(FilesToOpen)
IfFilesToOpen(x)<>ThisWorkbook.FullNameThen
Setwb=Workbooks.Open(Filename:=FilesToOpen(x))
ForEachshtInwb.Sheets
sht.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
EndIf
x=x 1
Wend
ExitHandler:
Application.ScreenUpdating=True
ExitSub
ErrHandler:
MsgBoxErr.Description
ResumeExitHandler
EndSub
说明：上面代码是合并xlsx文件，如果是合并excel2007的文件，需要将：FileFilter:="MicrosoftExcelFiles(*.xls),*.xls"，xls改为.xlsx。
excel如何将一列中的正数和负数分到两列？
解决这个问题几种思路，这里介绍两种： 第一种为快捷排序。 具体操作如下： 点击“开始”选项卡面板最右侧的“排序和筛选”中的升序即可。（下图箭头处）操作前，光标放在下图“盘盈数量”列的任意单元格。这种光标放在那列就排序那列的排序，就叫做快捷排序
