Ⅰ 怎样查找这个VBA代码出错在哪里 要过程要解析2
Suba()
Dimarr,iAsInteger,jAsInteger
Dimbrr(1To100,1To1),kAsInteger
arr=Range("a1").CurrentRegion
Forj=1ToUBound(arr,2)
Fori=UBound(arr)To1Step-1
IfIsNumeric(arr(i,j))Then
Ifarr(i,j)Mod3=0Andarr(i,j)>0Then
k=k+1
brr(k,1)=arr(i,j)
ExitFor
EndIf
EndIf
Nexti
Nextj
Range("j11").Resize(k)=brr
EndSub