excel的数据表格合并

1、创建一个新的excel表格文件，然后点击工作sheet，右击，查看源码，在编辑框中填入-颍骈城茇--------------------------------------------------幻腾寂埒------Sub 工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作表")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub---------------------------------------------------------

2、然后点击运行，或者使用快捷键F5运行，其次按住ctrl选择需要合并的两个数据表坼黉赞楞格，点击打开，这时两个数据表格中的数据会出现在新的表格中的任意两个sheet中请注意查看。接下来就是合并一个剞麽苍足数据表格中的不同sheet的内容，将上一步操作后的数据sheet删除到只剩下含有数据的那两个sheet，新建一个sheet右击查看代码，填入---------------------------------------------------------Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub----------------------------------------------------------然后再次运行这段代码，结果将出现合并后的sheet

3、在这个表格中存在的多个sheet有包含合并后的也有包含合并前的，所以在保存合并的sheet时注意查看内容。