問題和目標

• 問題： 是想統計一個excel 文件里，多個sheet里的內容
• 但是整個目標可以細化為不同的分支需求

有的統計需求是，每個表只單表統計，只是進行批量操作。比如例子里累加到每個sheet的指定位置：單元格D2

有的需求是，多個表得某些行列累加等。比如例子里累加到，特定表“sheet1”的第6列

造出來得文件

?

?2 實現方法1 （可能只適合VBA+EXCEL，不太干凈的寫法）

2.1 基本思路

• 雙層循環
• 一層是循環各個sheet表
• 一層是在某個sheet表內取數據，從頭取到尾（需要判斷下取第幾列，取到哪行為止）

Sub t100() Dim sh1 As Object Set sh1 = ThisWorkbook.Worksheets("sheet1") sh1.Columns(6).Clear '重置輸出區 sh1.Cells(1, 6) = "跨表sum"Dim j As ObjectFor Each j In ThisWorkbook.Worksheetsi = 2j.Cells(2, 4).Clear '重置輸出單元格，避免污染Do While j.Cells(i, 2) <> ""sh1.Cells(i, 6) = j.Cells(i, 2) + sh1.Cells(i, 6) '跨表對應行累加統計j.Cells(2, 4) = j.Cells(i, 2) + j.Cells(2, 4) '單表多行累加i = i + 1LoopNext End Sub

2.2 用EXCEL表的單元格，當變量來存儲數據

（其實我反思，EXCEL只應用來顯示可能更好）

• 如果是累加一個sheet的數據，存在一個變量/1個單元格就行
• 如果是累加多個sheet的數據，需要存在多個excel單元格/ 1行/1列等

2.3 重點1

• 方法1直接把 j當作了worksheets對象

? ? Dim j As Object
? ? For Each j In ThisWorkbook.Worksheets

2.4?方法1，需要重置輸出區

• 為什么呢？
• 因為EXCEL不是變量，數組，是文件，是可以保存數據的
• 不像 程序里的變量，數組，程序開始運行，創建--生---------程序運行結束，銷毀--滅，
• 所以有可能上次運行的數據（ 可以叫臟數據吧）還存著，會和新運行的結果累積起來
• 所以就需要 先把EXCEL的輸出區域重置才行

總結：需要重置輸出區的2個原因

• 第1：其實無論哪個方法，因為EXCEL作為一個數據文件，本身輸出區可能（只是可能，不是必然）是已經被其他數據污染過的，所以進行整列/或整個區域的 輸出區清理是很有必要的。

（比如你這次輸出200行數據，下次只輸出150行數據，那么上次的151-200行數據就可能污染第2次的結果，看起來像是第2次輸出的）

• 第2，第1種方法的關鍵問題在于這：累加統計時，是以當前EXCEL的單元格的現有值為基礎的，所以不清除老的數據，必然出錯。

• 而第2種方法，因為累計統計? a=a+ add的時候，是用的變量a ，變量每次即生即滅，是不會存在,EXCEL這種，事先就存在數據的問題的

2.5? 方法1得歷史改進過程，沒什么用，有興趣得看看

Sub t1() Dim sh1 As Object Set sh1 = ThisWorkbook.Worksheets("sheet1") Dim j As ObjectFor Each j In ThisWorkbook.WorksheetsFor i = 2 To 99 '寫死99這種這個很不好，需要線判斷最大行數sh1.Cells(i, 6) = j.Cells(i, 2) + sh1.Cells(i, 6)NextNext End SubSub t11() Dim sh1 As Object Set sh1 = ThisWorkbook.Worksheets("sheet1") Dim j As ObjectFor Each j In ThisWorkbook.Worksheetsi = 2Do While j.Cells(i, 2) <> ""sh1.Cells(i, 6) = j.Cells(i, 2) + sh1.Cells(i, 6)i = i + 1LoopNext End SubSub t12() Dim j As ObjectFor Each j In ThisWorkbook.Worksheetsi = 2Do While j.Cells(i, 2) <> ""j.Cells(2, 4) = j.Cells(i, 2) + j.Cells(2, 4)i = i + 1LoopNext End Sub

3? 方法2： 運算和存儲都在程序的變量里進行，EXCEL只存儲和顯示最終結果

（不過也有可能有問題，就是老數據的行數比新的多，導致這樣還是有臟數據，嘿嘿）

3.1 代碼寫法思路和方法1完全不同

• 運算和存儲都在程序的變量里進行，EXCEL只存儲和顯示最終結果
• VBA 和像方法1那么干，還是因為是內置在EXCEL里的吧
• 一般程序還是都把過程放在程序內解決，
• EXCEL表只是存儲最終結果? & 顯示出來

Sub t200()'核心差異 '方法2，把j定義為 sheet的序號，而b作為worksheets對象，Set b = Worksheets(j)' '對應方法1，直接把j當作了worksheets對象'方法1，需要重置輸出區 '方法2，因為都是用變量中轉的，單數據存1個變量里，多數據存在數組，因為變量做了重置，所以輸出區域就不做重置了Dim i, j, h Dim b As Object Dim sh1 As Object Set sh1 = ThisWorkbook.Worksheets("sheet1") Dim arr1()For j = 1 To ThisWorkbook.Worksheets.Counth = 0 '每個表分表統計i = 2 '每個表都從第2行開始，重置i行數'數組不需要重置？因為這個數組不需要循環，就是要一次性累加'每次運行變量和數組都是消滅后重新生產的，不會像excel這種外部文件記錄了數據' 重置變量和數組是為了程序連續運行期間問題，就是為了，循環，下次循環沖頭再來Set b = Worksheets(j)Do While b.Cells(i, 2) <> ""ReDim Preserve arr1(2 To i) '因為i在不同的表，無法確認具體數值，有數據的行數都不同arr1(i) = b.Cells(i, 2) + arr1(i) '跨表對應行累加統計,因為是多個數據，需要用數組h = h + b.Cells(i, 2) '單表多行累加i = i + 1Loopb.Cells(2, 4) = h 'h本身做了重置，因此輸出單元格Cells(2, 4) 不需要再重置NextFor i = LBound(arr1) To UBound(arr1)sh1.Cells(i, 6) = arr1(i)NextEnd Sub

3.2 定義sheet 不同

• 方法2，把j定義為 sheet的序號，而b作為worksheets對象，Set b = Worksheets(j)'
• 對應方法1，直接把j當作了worksheets對象

3.3 不需要重置EXCEL的? 存儲+顯示區

• 方法1，需要重置輸出區
• 因為方法1，把那些區域又做顯示，又做存儲就有了需要重置清除的問題
• '方法2，因為都是用變量中轉的，單數據存1個變量里，多數據存在數組，因為變量做了重置，所以輸出區域就不做重置了

可以看到代碼里

EXCEL輸出區域，只是從 代碼里取變量 或數組內容進行顯示，和EXCEL本身區域的內容沒關系，輸出后會直接覆蓋老數據

（不過也有可能有問題，就是老數據的行數比新的多，導致這樣還是有臟數據，嘿嘿）

b.Cells(2, 4) = h ??

? ? For i = LBound(arr1) To UBound(arr1)
? ? ? ? sh1.Cells(i, 6) = arr1(i)
? ? Next

3.4 代碼內部的重置， 這個主要和循環有關系

• 數組不需要重置？因為這個數組不需要循環，就是要一次性累加
• ?每次運行變量和數組都是消滅后重新生產的，不會像excel這種外部文件記錄了數據
• ?重置變量和數組是為了程序連續運行期間問題，就是為了，循環，下次循環重頭再來

3.5 方法2的歷史代碼，沒啥用

Sub t2() Dim i, j, h Dim b As ObjectFor j = 1 To ThisWorkbook.Worksheets.Counth = 0 '每個表分表統計i = 2 '每個表都從第2行開始，重置i行數Set b = Worksheets(j)Do While b.Cells(i, 2) <> ""h = h + b.Cells(i, 2)i = i + 1Loopb.Cells(2, 4) = hNextEnd SubSub t21() Dim i, j Dim b As Object Dim sh1 As Object Set sh1 = ThisWorkbook.Worksheets("sheet1")For j = 1 To ThisWorkbook.Worksheets.Counti = 2 '每個表都從第2行開始，重置i行數Set b = Worksheets(j)Do While b.Cells(i, 2) <> ""sh1.Cells(i, 6) = b.Cells(i, 2) + sh1.Cells(i, 6)i = i + 1LoopNextEnd Sub

總結

以上是生活随笔為你收集整理的VBA小模板，跨表统计的2种写法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。