VBA 数据库结果遍历替换成新的数组？

用vba 从数据库查询数据得到一个二维数组· 但是我这个二维数组还要再过滤一下，请问我应该怎么循环过滤，vba怎么查看二维数组的结构，刚接触vba 对这个语言不太熟悉，
比如我结果未二维数组但是我只要二维数组中的部分数据，我要做一个循环遍历，并根据条件生成新的数组，麻烦问一下怎样操作谢谢。

举报该问题

其他回答

第1个回答 2020-01-04

具体的代码要有具体的使用场景,具体的文件

第2个回答 2019-10-29

EXCEL表的单元格区域是一个二维数组
dim arr
arr=Sheet3.Range("D7:D9")
'这时的arr得到的是二维数组
'你要转换成1维数组，先声明一个动态数组再重定义为1维数组
dim brr()
redim brr(1 to ubound(arr))
'再重新将二维转一维
for i = 1 to ubound(arr)
brr(i)=arr(i,1)
next
'如果你是要间隔写进去
for i = 1 to ubound(arr) step 2
brr(i)=arr(i,1)
next本回答被网友采纳

相似回答

VBA如何把满足条件数组存组成一个新的数组呢?答：arr1= ***.range("a2:b" & ***.range("a65535").End(xlUp).Row)for i = 1 to ubound(arr1)if range(c3)=arr(i,2) then n=n+1 brr(N,1)=arr(i,2)end if next [c4].resize(n,1)=brr end sub

VBA 正则替换多个值,想把正则放在arr1中,替换成的放在对应的arr2,实...答：数组赋值问题，Public Sub RegExp_Replace()Dim RegExp As ObjectDim Arr1() As String, Arr2() As StringDim SearchRange As Range, Cell As Range'此处定义正则表达式Arr1 = Split("有.*?公司" & "@@@" & "婊", "@@@")Arr2 = Split("有限公司" & "@@@" & "婧", "@@@")...

VBA批量导入文本文件,如何转换二维数组?答：f = Dir(p & "*.txt*") '开始遍历工作簿 While f <> ""Filename = p & "\" & f Open Filename For Input As #1 str = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1 arr = Split(str, Chr(10)) '只会生成一维数组，如何变成二维数组录入到单元格中 ReDim brr(UBound(arr...

VBA 数据库结果 遍历替换成新的数组？

VBA 数据库结果遍历替换成新的数组？