Question

VBA看不懂代码请解释

VBA看不懂代码请解释

Sub TEST1()

Dim Arr, X, A%(1 To 33), N%, B(1 To 33), i%, j&, k%

For Each X In [J10:L10]

If X > 0 Then A(X) = 1: N = N + 1 '解释这句什么意思，A(X) = 1代表什么

Next '能不能用基本写法，重新写一次，看不懂这个

Answer 1

For Each X In [J10:L10] 表示 在 单元格range("J10:L10")当中循环
If X > 0 Then A(X) = 1: N = N + 1 表示如果单元格当中的值大于0，则把这个大于0的数作为下标，然后给数组A赋值，比如如果X=3，则表示A（3）=1，N=N+1表示给这样的单元格计数

追问

就看图片吧

追答

把数组br当中的值用做数组ar的第二维下标，你一层一层分析嘛，比如i=1,br(1,1)=2,那意思就是ar(1,2)=0 就这么简单

追问

不懂先采纳答案，再重新发问