excelvba中怎么循环引用一个单元格数组的值

比如在一个命令按钮中每点击一次，都要比较这个
If Range("J27").Value >= [C23] Then Range("J26").Value = Range("J26") + 1
如果这条件满足。下次点击就比较【】，依次类推

建立一个全局变量，用于记载当前的数组位置，每点击一次，将当前的数组位置更新一次。

错误1： j = 1 那么cells(i,j -1)将定位到不存在的单元格，所以错误。 错误2： sheet2.cells(b, 1) = sheet1.cells(i, j + 1) 上面写这句代码中的b没有赋初值，所以为0。同样cells(0,1)这个单元格是不存在的。 错误3： for 循环用法是不是有问题？既然用了for i = 1 to a，为什么还要用i = i + 1。 j = j + 1的作用又为何呢！？ 所以改法： j = 3 ...     b = b + 1    sheet2.cells(b, 1) = sheet1.cells(i, j + 1) 改后的代码如下： sub tt() dim i dim j dim a dim b sheet1.activate j = 3 m = 1   a = sheet1.range("a65536").end(xlup).row   if a > 0 then      for i = 1 to a        if sheet1.cells(i, j) = "value" and sheet1.cells(i, j - 1) = "tag" then           b = b + 1           sheet2.cells(b, 1) = sheet1.cells(i, j + 1)       end if    next i    end if sheet2.activate end sub