Excel合并多个工作表(Sheet)到一个Sheet中脚本
2017-05-28 12:21
1126 查看
合并数据脚本
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
使用流程,
首先在工作表最前面新增一个工作表Sheet,
然后在工作Sheet中邮件查看代码
将上述脚本黏贴到空白处
执行代码(绿色三角箭头)
合并完毕
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
使用流程,
首先在工作表最前面新增一个工作表Sheet,
然后在工作Sheet中邮件查看代码
将上述脚本黏贴到空白处
执行代码(绿色三角箭头)
合并完毕
相关文章推荐
- 将多个Excel文件合并成一个有多个sheet的Excel文件
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- Excel多个工作表(Sheet)合并
- C#利用NPOI在同一个Excel文件中创建多个sheet
- excel 快速删除表格中的公司只保留数字(包括一个表格包含多个工作表的情况)
- Excel 多个sheet中的内容合并到一个sheet中
- C#利用NPOI在同一个Excel文件中创建多个sheet
- C#将一个excel工作表根据指定范围拆分为多个excel文件
- 将多个csv文件合并到一个excel文件的不同的sheet中
- Excel中如何将一个Excel工作表的数据按一列的关键字拆分成多个工作表
- 合并两个excel的sheet到一个excel
- excel将一个工作表根据条件拆分成多个工作表图文教程
- 【Excel技巧】合并多个Sheet为一个的方法
- phpexcel来做表格导出(多个工作sheet)
- excel 表格成批删除公式只保留数值(包括一个文档中有多个工作表的情况)
- Excel里多个sheet合并成一个/取消合并单元格并自动填充
- POI创建Excel创建多个工作表sheet(二)
- python读取一个excel多个sheet表并合并
- phpexcel数据导出分多个工作区(sheet)
- java导出Excel多个工作表(添加多个sheet)