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

今日繼續(xù)和大家分享VBA編程中常用的常用"積木"過程代碼。這些內(nèi)容大多是我的經(jīng)驗(yàn)和記錄，來源于我多年的經(jīng)驗(yàn)。今日分享的是NO.244，內(nèi)容是：

VBA過程代碼244：VBA中動(dòng)態(tài)數(shù)組的定義及創(chuàng)建

VBA過程代碼244：VBA中動(dòng)態(tài)數(shù)組的定義及創(chuàng)建

Sub Mynz()

Dim arr() As String

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

j = 1 '數(shù)組索引號(hào)

xcount = Application.WorksheetFunction.CountIf([c1:c65536], "王*") '統(tǒng)計(jì)有多少姓王的學(xué)生

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

For i = 1 To erow

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

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

j = j + 1 '索引號(hào)加1

End If

Next i

[d1:d65536].Clear '清除原有數(shù)據(jù)

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

End Sub

代碼解析：

1 Dim arr() As String 定義了一個(gè)動(dòng)態(tài)數(shù)組。

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

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

通過求出姓王的學(xué)生的個(gè)數(shù)從而知道數(shù)組的上下界

3 Application.WorksheetFunction.Transpose(arr) 講數(shù)組arr 的內(nèi)容轉(zhuǎn)置填充，對于一維數(shù)組來說，中間是以逗號(hào)分隔的，如果想縱向填充，要進(jìn)行轉(zhuǎn)置，這可以結(jié)合之前工作表數(shù)組的表述來理解，逗號(hào)是分列，分號(hào)是分行。

VBA是利用OFFICE實(shí)現(xiàn)自己小型辦公自動(dòng)化的有效手段，我根據(jù)自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，現(xiàn)在推出了四部VBA經(jīng)驗(yàn)學(xué)習(xí)資料，是我"積木編程"思想的體現(xiàn)。

第一：VBA代碼解決方案，是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)；

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

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

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

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內(nèi)陸續(xù)在各個(gè)平臺(tái)和大家見面。

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。