發(fā)文章
發(fā)文工具
撰寫
網(wǎng)文摘手
文檔
視頻
思維導(dǎo)圖
隨筆
相冊
原創(chuàng)同步助手
其他工具
圖片轉(zhuǎn)文字
文件清理
AI助手
留言交流
數(shù)組的篩選就是根據(jù)一定的條件,從數(shù)組中篩選符合條件的值,組成一個(gè)新的數(shù)組,實(shí)現(xiàn)數(shù)組篩選的VBA函數(shù)是:
Filter函數(shù)
用法:Filter(數(shù)組, 篩選的字符, 是否包含)
Sub DD() arr = Array("ABC", "A", "D", "CA", "ER") arr1 = VBA.Filter(arr, "A", True) '篩選所有含A的數(shù)值組成一個(gè)新數(shù)組 arr2 = VBA.Filter(arr, "A", False) '篩選所有不含A的數(shù)值組成一個(gè)新數(shù)組 MsgBox Join(arr2, ",") '查看篩選的結(jié)果End Sub
遺憾的是函數(shù)只能進(jìn)行模糊篩選,不能精確匹配。
來自: 藥都之鄉(xiāng) > 《我的圖書館》
0條評論
發(fā)表
請遵守用戶 評論公約
Excel VBA將某列數(shù)值存入一個(gè)數(shù)組
Excel VBA將某列數(shù)值存入一個(gè)數(shù)組Sub test()Dim arr() As String ''''''''定義動(dòng)態(tài)數(shù)組Dim n As LongDim i As Integern = Application.WorksheetFunction.CountA(Rang...
Excel之VBA常用功能應(yīng)用篇:查詢數(shù)組元素
Excel之VBA常用功能應(yīng)用篇:查詢數(shù)組元素。數(shù)組是一系列常量的集合,在編程過程中大量運(yùn)用數(shù)組可以提高程序運(yùn)行速度,這是個(gè)很好的方法...
可以生成數(shù)組的函數(shù),數(shù)組的處理
可以生成數(shù)組的函數(shù),數(shù)組的處理。Dim arr, arr1, arr2.arr = Application.arr1 = VBA.Filter(arr, ''W'', True)arr2 = VBA.Filter(arr, ''W'', False)arr1 = Applicat...
VBA實(shí)戰(zhàn)技巧精粹015:關(guān)于Split函數(shù)的一些認(rèn)識
如果expression是一個(gè)長度為零的字符串(''''''''''''''''),Split則返回一個(gè)空數(shù)組,即沒有元素和數(shù)據(jù)的數(shù)組。關(guān)于③:利用Lbound函...
VBA 判斷元素是否在數(shù)組中
VBA 判斷元素是否在數(shù)組中。Sub macro1()Dim arr, i%arr = Array(1, 2, 3, 4, 5, 6)On Error Resume Nexti = WorksheetFunction.Match(9, arr, 0)If i >0 Then MsgBox "存在" Else MsgBox...
Excel VBA之函數(shù)篇-3.19大數(shù)據(jù)時(shí)代必備查找技能 萬條數(shù)據(jù)能奈我何
Excel VBA之函數(shù)篇-3.19大數(shù)據(jù)時(shí)代必備查找技能 萬條數(shù)據(jù)能奈我何。最直接的方法就是多用數(shù)組,少用遍歷之類的循環(huán),不過數(shù)組的學(xué)習(xí)還是...
VBA中的Ubound函數(shù) | VBA實(shí)例教程
Sub test()Dim arr, brrarr = Array(1, 2, 3, 4)MsgBox UBound(arr) ''返回3brr = Range("A1:C5")MsgBox UBound(brr, 1) ''返回5MsgBox UBound(brr, 2) ''返回3En...
VBA數(shù)組基礎(chǔ)學(xué)習(xí)(五)
VBA數(shù)組基礎(chǔ)學(xué)習(xí)(五)六、內(nèi)置數(shù)組函數(shù)之Array函數(shù)。Array函數(shù)用于創(chuàng)建一個(gè)包含數(shù)組的Variant。arr = Array(''wise'', ''Rose'', ''susu'', '...
函數(shù)燒腦,有時(shí)vba編程解決好!
Dim arr1, x, y, k, arr2(1 To 10000, 1 To 2), arr3.For x = 2 To UBound(arr1) ''''''''循環(huán)數(shù)組arr...
微信掃碼,在手機(jī)上查看選中內(nèi)容