EXCEL活页簿模拟成一维、二维、三维阵列在资料处理上，Excel整体来.doc

EXCEL活頁簿模擬成一維、二維、三維陣列 在資料處理上，Excel整體來說算是功能相當好用的。但有些時候我們可能會發覺Excel怎麼剛好沒有所需的功能，這時便可以寫一點小小的巨集程式來加強。因此擅長使用Excel軟體的人，只要再加上一點小小的巨集程式撰寫，就好比如虎添翼，幾乎無所不能了。 在這裡我們將Excel活頁簿模擬成一維、二維、三維陣列，介紹幾個實用的巨集範例，本文將著重在說明程式指令的撰寫，讓不會寫程式的人也可以很快學會這幾種常用的Pattern，至於巨集的編輯和執行方式在另一篇「Excel學習三部曲」中有詳細說明，於此將不再贅述。 第一階段：以(Range(A I)) 模擬一維陣列 範例一：計算ID不重複的資料有幾筆，需先根據ID排序，Range(A I)是表示A欄的第I列儲存格，茲將程式碼說明如下， 符號表示之後的文字是註解，作為說明之用，可不必打在程式裡： Sub countunique() Dim I, count As Integer I = 2 第一列是標題 資料從第二列開始 count = 0 計數器變數 Worksheets(2).Select 資料放在Sheet2 將第一筆資料的ID放到AA變數以便和下一筆比較 AA = Range(A I).Value I = I + 1 指向下一筆資料 Do While AA 還有記錄資料 即ID不等於空字串 假使ID值不等於AA變數的上一筆ID值 則計數加一 If Range(A I).Value AA Then count = count + 1 不重複的ID則計數器變數加一 將目前的ID保留到變數AA以便和下一筆ID比較 AA = Range(A I).Value End If I = I + 1 指向下一筆資料 Loop 迴圈結束表示不再有ID資料了 把加總計數結果放到H1儲存格 Range(H1).Value = count End Sub 範例二：如上圖，ID和NAME兩個key都相同的資料要刪除，需先根據ID再根據NAME排序，茲將程式碼說明如下: Sub delsame() Dim I As Integer I = 2 Worksheets(2).Select 資料放在Sheet2 將目前的ID和Name保留到變數AA和BB以便和下一筆比較 AA = Range(A I).Value BB = Range(B I).Value I = I + 1 指向下一筆資料 Do While AA 還有記錄資料 即ID不等於空字串 假使ID等於上一筆ID , Name等於上一筆Name則該筆刪除 If Range(A I).Value = AA And Range(B I).Value = BB Then Rows(I).Delete Else 不然繼續將目前的ID和NAME保留到變數AA和BB以便和下一筆比較 AA = Range(A I).Value BB = Range(B I).Value I = I + 1 指向下一筆資料 End If Loop End Sub 第二階段：以(Cells(I, J)) 模擬二維陣列 範例三：以下是矩陣相乘的例子，Cells(I, J)表示二維陣列第I列第J欄(索引皆從1開始，所以Cells(3, 2)即是指B3儲存格)的位置，程式碼也說明如下: Sub Array_Mult() Dim I, J, K, temp As Integer Worksheets(1).Select For K = 1 To 3 For I = 1 To 3 temp= 0 For J = 1 To 2 temp = temp + (Cells(I + 2, J + 1) * Cells(J + 2, K+ 4)) Next J Cells(I + 6 , K + 1) = temp Next I Next K End Sub 範例四：這是一個較複雜的例子，從下圖原始的明細資料(sheet1)可看到一個病歷號有數十種不同的檢驗項目，及其檢驗結果，我們要將同一個病歷號的數十種檢驗合併成一個病歷號一筆資料(sheet2)，但是每個病歷號檢驗的項目只是所有檢驗項目的一部分，也就是說，假設檢驗項目總共是100項，那麼每個病歷號在s