如何將一個(gè)EXCEL工作薄里100張sheet數(shù)據(jù)十秒鐘合并成一個(gè)EXCEL表？這個(gè)問題用VBA很容易處理，10秒可以匯總上百張表，沒問題。所附代碼如下，可直接使用。Sub allcopy（）dim

如何將一個(gè)EXCEL工作薄里100張sheet數(shù)據(jù)十秒鐘合并成一個(gè)EXCEL表？

這個(gè)問題用VBA很容易處理，10秒可以匯總上百張表，沒問題。

所附代碼如下，可直接使用。

Sub allcopy（）

dim RG as range

dim sh as worksheets

dim IROW，jcol

工作表（“主工作表”）。范圍（“2:1048576”）。清除

工作表中的每個(gè)SH

帶有工作表（“主工作表”

如果姓&Lt> “常規(guī)表格”然后

設(shè)置RG=sh.UsedRange.Offset偏移量（1，0）

irow=.Range（“A”和行。計(jì)數(shù)).End（xlUp）.1行rg.副本.Cells（irow，1）

結(jié)束If

結(jié)束With

下一步

結(jié)束sub