如何将EXCEL中同一个工作薄多张工作表合并
2012-10-17 12:51
225 查看
在你的当前工作簿下新建一个sheet然后你在这个sheet和标签处右键 查看代码(找不到的直接按一下alt+F11) 把下面 的代码复制进去 然后点上面的运行 运行子程序就可以了 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示" End Sub
相关文章推荐
- Visio如何合并多张工作表(将多个文件合并成一个文件)
- excel如何快速把多个工作表合并到一个excel表
- excel如何将一个工作薄中的工作表生成独立的工作薄
- EXCEL 如何将多个工作表或工作簿合并到一个工作表
- 如何快速把多个excel表合并成一个excel表
- 如何将多个excel文件合并成一个
- 如何使Excel在打开一个工作簿文件时总显示其中某个特定的工作表上?
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
- 【原创】如何将多个工作簿中相同格式的工作表合并到一个工作表中
- Excel学习笔记002-004:如何合并工作表或工作簿?
- 在Excel里如何将多个工作簿合并到一个工作簿中
- EXCEL中如何将一个工作薄中的工作表移到另一个工作薄
- 多个excel文件如何快速合并到一个excel中
- [置顶] 【excel VBA】合并一个文件夹下多张excel表数据,前提字段一样
- 多个Excel文件合并到一个工作薄中
- 如何合并多个excel报表到同一表中,只保留一个表头
- 如何快速把多个excel表合并成一个excel表
- Office EXCEL 中如何让一个单元格的数据链接到另一个工作表的数据
- Excel如何合并两个单元格内容
- 如何将两个json合并成一个