vb数组变量问题,高手进来:

c-末利-

把FOR循环中,满足条件的循环次数用数组记录下来,如下:
For i = 1 To 10
        if a1="Q"" then
  把这次满足条件是第几次"I"的值用数组形式累记下来.
        Next i

比如,A1="Q",这个条件分别在(I)循环到第3次,5次,7次满足过,
然后等循环完毕后就等于: 3,5,7
用逗号隔开,请问用什么函数?谢谢!

zax010

    For i = 1 To 10
        If a1 = "Q" Then
            s = s & "," & i
        Next i
        s = Mid(s, 2)

huang1314wei

1. Dim brr()
   
2. For i = 1 To 10
   
3.     If a1 = "Q" Then
   
4.       j = j + 1
   
5.       ReDim Preserve brr(1 To j)
   
6.       brr(j) = i
   
7.     End If
   
8. Next
   
9. MsgBox Join(brr, ",")
   

复制代码

coby001

dim iArr&(1 To 10)
For i = 1 To 10
        if a1="Q"" then
            '把这次满足条件是第几次"I"的值用数组形式累记下来.
            iArr(i)=i
        endif
Next i

ili

For i = 1 To 10
     if a1="Q"" then
        s=s & i & ","
    end if
Next i
s=left(s,len(s)-1)