大家好，后疫情時代一定會到來，各行各業，都將是一場戰勝蕭條的無聲的戰役。無論怎樣，我們一定要堅信，疫情終將會過去，曙光一定會到來。后疫情時代將會是一個全新的世界，很多理念都將被打破，大多數人不會再享受體制內的保護，對于我們每個人，要盡可能多的學習有用的知識，為自己充電。在今后更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。為后疫情時代做的必要準備。

今日繼續和大家分享VBA編程中常用的常用"積木"過程代碼。這些內容大多是我的經驗和記錄，來源于我多年的經驗。今日分享的是NO.244，內容是：

VBA過程代碼244：VBA中動態數組的定義及創建

VBA過程代碼244：VBA中動態數組的定義及創建

Sub Mynz()

Dim arr() As String

erow = [c65536].End(3).Row '最后一個非空單元格行號

j = 1 '數組索引號

xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '統計有多少姓王的學生

ReDim arr(1 To xcount) '重新定義數組大小，元素共有xcount個

For i = 1 To erow

If Left(Cells(i, 3).Value, 1) = "王" Then

arr(j) = Cells(i, 3).Value '給數組元素賦值

j = j + 1 '索引號加1

End If

Next i

[d1:d65536].Clear '清除原有數據

[d1].Resize(xcount, 1) = Application.WorksheetFunction.Transpose(arr) '將數組輸入單元格區域

End Sub

代碼解析：

1 Dim arr() As String 定義了一個動態數組。

2 xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '統計有多少姓王的學生

ReDim arr(1 To xcount) '重新定義數組大小，元素共有xcount個

通過求出姓王的學生的個數從而知道數組的上下界

3 Application.WorksheetFunction.Transpose(arr) 講數組arr 的內容轉置填充，對于一維數組來說，中間是以逗號分隔的，如果想縱向填充，要進行轉置，這可以結合之前工作表數組的表述來理解，逗號是分列，分號是分行。

VBA是利用OFFICE實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現在推出了四部VBA經驗學習資料，是我"積木編程"思想的體現。

第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點；

第二：VBA數據庫解決方案，是數據處理的專業利器，介紹利用ADO連接ACCDB,EXCEL。

第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。

第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內陸續在各個平臺和大家見面。

VBA真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕松，高效，快樂。學習有用的知識，讓健康的知識服務于大眾，不要想不勞而獲，更不要去偷奸取巧，踏踏實實，沉下心，提高自己，為后疫情時代做好知識的儲備。

總結

以上是生活随笔為你收集整理的c语言中创建一个整数数组_VBA中动态数组的创建及利用方法的全部內容，希望文章能夠幫你解決所遇到的問題。

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