Excel里多个sheet合并成一个/取消合并单元格并自动填充
2015-04-07 14:23
573 查看
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
Sub 取消合并并还原数据() Dim a As Range, b As Range For Each a In ActiveSheet.UsedRange If a.MergeCells Then Set b = a.MergeArea b.UnMerge b.Value = a.Value End If Next End Sub
相关文章推荐
- 如何在excel中取消合并完单元格后自动把内容填充给其每个取消后的单元格
- Easyui+Spring Mvc导出Excel:支持按模板样式导出、合并表头、合并单元格、多sheet
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
- 合并两个excel的sheet到一个excel
- POI 多个excel 合并到同一个sheet(2003版本)
- JAVA POI 导出 Excel多个Sheet分页 及多列自动合并
- 多个Excel文件中的多个Sheet合并到一个Excel文件中两个函数
- 【Excel技巧】合并多个Sheet为一个的方法
- 将多个csv文件合并到一个excel文件的不同的sheet中
- python读取一个excel多个sheet表并合并
- 将多个Excel文件合并成一个有多个sheet的Excel文件
- Excel 多个sheet中的内容合并到一个sheet中
- Excel 小工具:列出所有的sheet,然后点击其中的一个,自动跳过去
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- 把多个EXCEL的内容合并到一个EXCEL中的多个SHEET中
- Excel合并多个工作表(Sheet)到一个Sheet中脚本
- 取消ie6自动打开excel
- C# 如何将 不同的数据(多个查询结果集 dataset)导出到一个excel的不同sheet中
- Office VBA进阶(二):如何在Access 2007里导入一个Excel sheet表
- 润乾报表实现将多个报表导入一个excel的多个sheet