VBA问题，求各位大神指点

VBA问题，求各位大神指点

在这里，mark是一个数组
ReDim Preserve 是将后面的数组保留原有数值的情况下重新定义数组长度。

所以这段语言的意思是，arr储存区域B3:K3的数据

然后跑10次循环
每次的循环是如果这个格子不为FALSE（0），
那么就把一个叫mark的数组拉长一位，并将这个格子的数存进去。

这里k记录的是不为0的数字的个数，每当判断一个不为0的数时，k=k+1就会让k本身的值增加1
循环完成后，mark的数组里会按顺序储存B3:K3范围里不为0的数据追问“那么就把一个叫mark的数组拉长一位，并将这个格子的数存进去。”
大神，这句话的意思是不是，如果格子不为FALSE，那么就把mark的数组延长一位，然后把mark(k) = a 中，a此时的值记录到延长这一位的格子中去

比如：我前面循环10次时，其中第5和10次为false,其余都为ture，mark是不是就会延长8个格子，每个格子记录的分别为1,2,3,4,6,7,8,9追答是的，你理解的没错。原数据是1，2，3，4，0，6，7，8，9，0，记录下来就会是1，2,3,4,6,7,8,9。

k = k + 1
这里的=不是等号
而是赋值运算
意思是给K的值加上1，再保存到K中
ReDim Preserve mark(1 To k)
就是重新定义数组大小，并保留数组中已经存在的值