[標籤：excel,工作表資料,xsl] 7 2009-06-11 00:44
excel資料整理的時候,由於統計需要把資料按工作表分類.現在又需要將所有工作表的內容,彙總到乙個工作表中進行綜合留底.現有乙個工作薄中最少都有10+個工作表,有什麼方式可以快速、自動彙總這些資料顯示嗎?
(所有工作表中的結構一樣,資料不一樣。想要的結果只是將資料全部集中顯示,而不是彙總求和)..望有達人解決,不勝感激
問題補充：如圖中建立乙個新工作表，在該工作表中工作表6.1後自動接工作表6.2...
問題補充：在飄的耐心指導下,問題已經得到解決..為了方便以後有相同問題的朋友參閱這段**,我將問題再補充一下：
當時我在a資料夾下有1-n個工作薄,需要將所有工作薄中的所有工作表內所有內容集合到乙個新的工作表中(純資料集中處理,不涉及統計、排序、計算等等),具體巨集**視情況而定..一段小小的巨集,節約了大約一周的時間,慚愧慚愧..
滿意答案
是否將各表的內容複製到要彙總的表中？
若是這樣的話，只能用巨集**了
若是這樣加我，可以給**
繼續追問： 嗯.就是將各表的內容複製到要彙總的表中..看來還是有方法可以實現的,請教一下了
補充回答： 一般的方法就是兩種：公式與巨集
在這邊是無法用公式的，所以只能用巨集，且巨集**不會長
補充回答： **如下，但還有部份要設定，在此無法細說：
sub 彙總()
dim lj, bwj, bb, fs, f, f1, fc, i, j, k, l, hs, ls, wj, bm, a, b
set bwj = activeworkbook
set bb = bwj.activesheet
lj = bwj.path
set fs = createobject("scripting.filesystemobject")
set f = fs.getfolder(lj)
set fc = f.files
a = 2
for each f1 in fc
if right(f1, 3) = "xls" or right(f1, 3) = "xls" then
if <> then
workbooks.open lj & "\" & wj = activeworkbook
for each i in worksheets
i.select
set bm = i
activecell.specialcells(xllastcell).select
hs = activecell.row
'ls = = 5: c = 0
for j = 1 to hs
a = a + 1
bb.cells(a, 1) = 2) = k = 1 to ls
bb.cells(a, k + 2) = bm.cells(j, k)
a1: next k
next j
next i
wj.close false
end if
end if
next
end sub
利用Excel實現多個工作表資料的合併計算
excel建立合併計算 乙個公司內可能有非常多的銷售地區或分公司，各個分公司具有各自的銷售報表和會計報表，為了對整個公司的所有情況進行全方面的了解，就要將這些分散的資料進行合併，從而得到乙份完整的銷售統計報表或會計報表。在excel中系統提供了合併計算的功能，來完成這些彙總工作。所謂合併計算是指，能...
分級顯示Excel工作表中的複雜資料列表
如果您有乙個要進行組合和彙總的excel資料列表，則可以建立分級顯示 分級最多為八個級別，每組一級 每個內部級別 由分級顯示符號中的較大數字表示 顯示前一外部級別 由分級顯示符號中的較小數字表示 的明細資料。使用分級顯示可以快速顯示摘要行或摘要列，或者顯示每組的明細資料。可建立行的分級顯示 如下面示...
Excel資料管理與圖表分析設定工作表列印區域
在excel中，如果只需要列印工作表中的一部分資料，而又不方便將其隱藏時，可以通過設定列印區域的方法來完成。使用者可以通過功能區和對話方塊兩種方法對列印區域進行設定。1 利用功能區設定列印區域 利用功能區設定列印區域的操作方法較為簡單，能夠幫助使用者達到快速設定 新增列印區域的方法。選擇工作表中要列...