能學習時要抓緊時間，不要暮年自安於自欺欺人。偶然看到兩句話"久眠長愚痴，過飽不便用功"。學習是一件很辛苦的事。要有一顆充滿生機的心，就會收穫快樂的心。把握現在，努力學習，這才是進取。機會總在等待中出現，越是有意義的事情，困難會越多，願力決定始終，智慧決定成敗。尋找心靈的平靜；不管遇到什麼，都是一個風景。心善則美，心純則真。懷善心，做善事，一生無愧。懷平常心，做平常事，日夜安寧。看淡紛爭，看輕得失。一杯茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。把浮躁的心靜下來，去感悟真實的時間，靜下心，多學習，積累福報。保持快樂的心態，堅定且執著。學習有用的知識，經營自己，而不是天天混日子，也不是天天熬日子。為後疫情時代做知識的儲備。在今後更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。
在取代OFFICE新的辦公軟件沒有到來之前，誰能數據處理做到最為極致，誰就是王者。其中登峰至極的技能非VBA莫屬！
今日繼續和大家分享VBA編程中常用的常用"積木"過程代碼。這些內容大多是我的經驗的記錄，來源於我多年的經驗。最近代碼多是出自"VBA數組與字典解決方案"教程，有一些朋友反映分享的內容不能很好的理解，可以參考這套資料的內容進行研讀。今日分享的是第285期。
VBA過程代碼285：在數組中利用模糊查詢，求出值放到字典中並回填
Sub MyNZ ()
Sheets("57").Select
myarr = Sheets("57").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) '將數據放到數組中
Set mydic = CreateObject("Scripting.Dictionary") '創建字典
For i = 1 To UBound(myarr)
If Not myarr(i, 1) Like "*北京*" Then
'If myarr(i, 1) Like "*北京*" Then '此處是模糊查詢包含的方法
mydic(myarr(i, 1)) = "" '賦值給字典
End If
Next
'清空數據，填入抬頭，回填數據
[e:e].Clear
[e1] = "不含北京的省"
Range("E2").Resize(mydic.Count, 1) = Application.Transpose(mydic.keys) '
Set mydic = Nothing
End Sub
代碼講解:上述代碼先把數據放到數組myarr中,然後在數組中建立1 To UBound(myarr)循環,利用一個判斷語句，將不含北京的省份放到字典中,並排重,最後回填數據.
VBA是利用Office實現自己小型辦公自動化的有效手段.我根據自己20多年的VBA實際利用經驗，現在推出了四部VBA學習教程，也是我"積木編程"思想的具體體現。
第一：VBA代碼解決方案，是VBA中各個知識點的講解，這部教程可以覆蓋絕大多數的知識點；
第二：VBA數據庫解決方案，是數據處理的專業利器，詳細的介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作。
第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。字典是VBA代碼水平提高的手段，值得深入的學習。
第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。
上述教程的學習順序，1,3,2或者是4,3,2逐漸深入的瞭解VBA掌握VBA.目前正在集中精力寫第五部教程：VBA中類的解讀和利用，希望在年內能陸續在各個平臺和大家見面。
利用VBA進行數據統計真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己輕鬆，高效，快樂的工作。我的"積木編程"思想也是值得大家借鑑的，這種思想讓大家在代碼中解脫出來，成模塊的構建自己的應用，提高自己的編程效率。根據我提供的經驗，利用時間多學習。
