Excel快速合并多个工作表为一个工作表的VBA代码

　　以下的代码功能是：快速合并同一个工作薄中的多个工作表，合并成为一个工作表。

　　合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet 。

　　如果不合并标题行（比如第一行）则 j=1 改为 j=2

　　如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。

　　比如 j=2 k=3 表示从 第2行，第三列开始的数据。

　　以下是合并的代码，希望对您有所帮助。

　　Sub CombineSheet()

　　Dim i, j, k, n As Integer
　　n = 1
　　For i = 2 To ThisWorkbook.Sheets.Count
　　For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
　　For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
　　ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
　　Next k
　　n = n + 1
　　Next j
　　Next i

　　End Sub

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18