Ⅰ 怎樣查找這個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