[已解决]如何把多个sheet 合并到一个sheet中

baby19870514

数据.zip (21.28 KB, 下载次数: 46)

2012-8-21 22:01 上传

点击文件名下载附件
附件

各位高手请教个事情  我想把一个表中 多个sheet合并到一个sheet里
以下是语句，但我的多个sheet 有不到300个  这样运行起来就会卡死，高手帮忙看看如何有效的运行，辛苦了
    Sub CombineSheet()
    Dim i, j, k, n As Integer
    n = 1
    For i = 2 To ThisWorkbook.Sheets.Count
    For j = 7 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

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-8-21 22:55

1. 
   
2. 
   
3. Sub CombineSheet()
   
4.     Dim arr, shtCount%, i&, t
   
5.     shtCount = Sheets.Count
   
6.     Application.ScreenUpdating = False
   
7.     t = Timer
   
8.     Sheets(1).Cells.ClearContents
   
9.     For i = 2 To shtCount
   
10.         With Sheets(i)
    
11.             arr = .Range(.Range("a7"), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))
    
12.         End With
    
13.         Sheet1.Range("a" & Cells.Rows.Count).End(3).Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox Timer - t
    
17. End Sub
    

复制代码

测试了300多张工作表，用时大约10秒

跳转到最佳答案楼层

yanyongxia

用Sheets(1).Copy 吧，一个单元格一个单元格的写入太费时间了。当然就慢了。

柳如烟

1. 
   
2. 
   
3. Sub CombineSheet()
   
4.     Dim arr, shtCount%, i&, t
   
5.     shtCount = Sheets.Count
   
6.     Application.ScreenUpdating = False
   
7.     t = Timer
   
8.     Sheets(1).Cells.ClearContents
   
9.     For i = 2 To shtCount
   
10.         With Sheets(i)
    
11.             arr = .Range(.Range("a7"), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))
    
12.         End With
    
13.         Sheet1.Range("a" & Cells.Rows.Count).End(3).Offset(1, 0).Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox Timer - t
    
17. End Sub
    

复制代码

测试了300多张工作表，用时大约10秒

zjyxp

谢谢，略学会了点多表合并的技巧