Question

excel编程（vb）中一行中有某一格有值才执行某一操作

在excel中用vb编程(如图)，想要“=IF(COUNTIF(A:A,A2)>1,A2,"")”自动执行比较到A列为空格时，自动停止。如果为非空格继续执行到空格为止。请问有没有好的方法。有的话请给个程序，谢谢。

Answer 1

i=2
do until sheet1.cells(i,1)=""
'设置公式
loop

Answer 2

FOR I=1 TO [A66536].END(XLUP).ROW
程序
NEXT

[A66536].END(XLUP).ROW 为A列的最后一个非空白单元格的行号