大家好,最近推出的內容是「VBA信息獲取與處理」中的部分內容，這套教程面向中高級人員，涉及範圍更廣，實用性更強，現在的內容是第四個專題「EXCEL工作表數據的讀取、回填和查找」的內容。
第三節 VBA數組數據回填工作表
在前兩節我們講了如何將工作表中的數據讀到數組中，這種操作的實質其實是：將數據預存到內存中，然後在內存中調取數據再進行下一步操作，這樣可以節約反覆提取數據的時間。
當我們在內存中將數據計算完成後，需要將結果數組回填給工作表，又要注意哪些問題呢？對於工作表而言，可以回填的是數組可以是一維或二維的。我們在這一節和下一節將講解數組回填工作表的問題。本節先講解一維數組的回填。
1 一維數組回填工作表的一般原則
一維數組回填原則：若要將一維數組寫入工作表，必須創建一個Range對象，將該範圍調整為數組的大小，然後寫入該範圍。
假設我們有一個一維數組，並希望從單元格A1開始將其寫入工作表。代碼必須首先調整目標範圍的大小。例如下面的代碼：
Sub MYNZE() '一維數組數據的回填方案
Dim Arr As Variant
Dim MyRange As Range
Sheets("SHEET4").Select
Arr = Array("大象", "老虎", "獅子", "狐狸")
Set MyRange = Range("A1")
Set MyRange = MyRange.Resize(1, UBound(Arr) + 1)
MyRange.ClearContents
MyRange.Value = Arr
MsgBox "ok!"
End Sub
代碼截圖：
代碼講解：上述代碼首先從Arr = Array("大象", "老虎", "獅子", "狐狸")中取得數組的數據，當然，這裡我沒有對取得的數組數據做任何的計算處理，只是回填的操作。在回填數據的時候，先獲取要回填區域的基準單元格，這裡我給出的是A1,然後將以這個單元格為基準進行擴展，擴展到和數組同樣大小的區域：即 Resize(1, UBound(Arr) + 1),最後進行數據的回填。關於單元格的Resize屬性，在我的教程《VBA代碼解決方案》中有詳細的講解大家可以參考。
這裡我們要注意的是對於對象變量的賦值用的是SET: Set MyRange = Range("A1"),這一點在我的教程《VBA中類的解讀及應用》中已經詳細的說明，大家要注意對象變量和普通變量的區別。
在整個代碼中還利用了單元格的ClearContents屬性對單元格進行回填前的清理工作。
最後我們看看代碼的運行結果：
對於一維數組的回填我們還要注意：當回填區域比數組大時，多餘的區域會出現」#N/A」符號，表示沒有數據可以回填。
2 二維數組回填工作表的原則
二維數組回填原則：如果將二維數組回填工作表，則需要使用「Resize」將目標範圍調整為適當的大小。第一個維度是行數，第二個維度是列數。
下面的代碼演示如何從單元格A1開始將數組Arr寫入工作表:
Sub MYNZF() '二維數組數據的回填方案
Dim Arr As Variant
Dim MyRange As Range
Sheets("SHEET4").Select
Arr = Sheets("SHEET2").Range("A1:b9")
Set MyRange = Range("A1")
Set MyRange = MyRange.Resize(UBound(Arr, 1), UBound(Arr, 2))
MyRange.ClearContents
MyRange.Value = Arr
MsgBox "ok!"
End Sub
代碼的截圖：
代碼講解：上述代碼首先從工作表SHEET2中提取數據放到數組之中，這裡的數據沒有任何的修改：Arr = Sheets("SHEET2").Range("A1:b9")，對於基準單元格我們利用了Resize 語句來擴展單元格。MyRange = MyRange.Resize(UBound(Arr, 1), UBound(Arr, 2)) ，這個語句中UBound(Arr, 1)是擴展的是行數，UBound(Arr, 2)是擴展的是列數。
下面我們看代碼的運行結果：
和一維數組的回填一樣：當回填區域比數組大時，多餘的區域會出現」#N/A」符號，表示沒有數據可以回填。
本節知識點回向：數組數據如何回填到工作表？回填的原則是什麼？
本專題參考程序文件：004工作表.XLSM
VBA是利用Office實現自己小型辦公自動化的有效手段，這是我對VBA的應用界定。在取代OFFICE新的辦公軟體沒有到來之前，誰能在數據處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！學習VBA是個過程，也需要經歷一種枯燥的感覺，如太白詩云：眾鳥高飛盡，孤雲獨去閒。相看兩不厭，只有敬亭山。
「水善利萬物而不爭」，綿綿密密，微則無聲，巨則洶湧。學習亦如此，知道什麼是自己所需要的，不要蜷縮在一小塊自認為天堂的世界裡，待到暮年時再去做自欺欺人的言論。要努力提高自己，用一顆充滿生機的心靈，把握現在，這才是進取。越是有意義的事情，困難會越多。願力決定始終，智慧決定成敗。不管遇到什麼，都是風景。看淡紛爭，看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學習，積累福報。而不是天天混日子，也不是天天熬日子。在後疫情更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。學習時微而無聲，利用時則巨則洶湧。
我記得20年前自己初學VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學習VBA的朋友重複我之前的經歷，我根據自己多年VBA實際利用經驗，推出了六部VBA專門教程。
第一套：VBA代碼解決方案是VBA中各個知識點的講解，覆蓋絕大多數的VBA知識點，初學必備；
第二套：VBA資料庫解決方案資料庫是數據處理的專業利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學習。
第三套：VBA數組與字典解決方案數組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。
第四套：VBA代碼解決方案之視頻是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。
第五套：VBA中類的解讀和利用這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。
第六套教程：《VBA信息獲取與處理》，這是一部高級教程，涉及範圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程式信息獲得、隨機信息的利用、電子郵件的發送、VBA網際網路數據抓取、VBA延時操作，剪切板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定製工作表信息函數等等內容。如需要可以可以WeChat: NZ9668
學習的過程也是修心的過程，修一個平靜的心。在代碼的世界中，心平靜了，心情好了，身體自然而然就好。心靜則正，內心裡沒有那麼多邪知邪見，也就沒有那麼多妄想。利人就是利己。這些教程也是為幫助大家起航，助上我自己之力，我的上述教程是我多的經驗的傳遞，大家可以根據以上資料1,3,2,6,5或者是4,3,2,6,5的順序逐漸深入的逐漸學習。
每一分收穫都是成長的記錄，怎無憑，正是這種執著，成就了朝霞的燦爛。最後將一闕詞送給致力於VBA學習的朋友,讓大家感受一下學習過程的枯燥與執著：
浮雲掠過，暗語無聲，
唯有清風，驚了夢中啼鶯。
望星，疏移北鬥，
奈將往事雁同行。
阡陌人，昏燈明暗，
忍顧長亭。
多少VBA人，
暗夜中，悄聲尋夢，盼卻天明。
怎無憑！
分享成果，隨喜正能量