Excel合并工作表,加载宏
2011-12-23 09:48
225 查看
Sub 合并sheets() n = 12 '源表个数,根据需要修改! nstart = 9 '每个单表数据的开始行数,根据需要修改! k = nstart '目标表的行标 For i = 1 To n irow = nstart '行标 While Sheets(i).Cells(irow + 1, 2) <> "" '后面个1以第2列数据的最后1行是空作为行结束标示,确定源表的行数,根据需要修改! irow = irow + 1 Wend Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行 Sheets(n + 1).Activate Sheets(n + 1).Cells(k, 1).Select ActiveSheet.Paste '粘贴数据 k = k + irow - nstart + 1 Next i End Sub
相关文章推荐
- Excel合并多个工作表(Sheet)到一个Sheet中脚本
- Excel合并工作表的神器—Power Query
- Excel合并工作表的神器—Power Query
- Excel多个工作表(Sheet)合并
- javascript在线版Excel工具集-合并工作表之01
- C# 如何合并Excel工作表
- 以工作表的方式合并excel
- C# 如何合并Excel工作表
- 通过VBA宏合并Excel工作表
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- 如何破解Excel工作表单的密码
- VBA 合并多个excel
- Excel (一) 每天记些小技巧,工作时候不慌忙(1)!
- 使用Apache POI生成Excel文档时,当进行单元格合并操作后,被合并的单元格边框会消失,使用如下方式可以解决。
- Powerbuilder与嵌入Excel工作表交互百万数据记录(43619条26列)心得---用时30秒左右
- excel数据导入到sqlserver中---------工作笔记
- 用Excel自动生成工作表目录
- 多个excel文件如何快速合并到一个excel中
- EXCEL之利刃出鞘----VBA 彻底隐藏工作表
- C#实现数据导出Excel工作表