Excel.合并多张sheet

Excel.合并多张sheet

1. 新建一张sheet
2. 鼠标放在sheet标签上右键
3. 选择查看代码，粘贴下面代码，运行.

Sub CombineSheet()Dim i, j, k, n As Integer
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 2 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 iEnd Sub