从Active Cell开始的循环

Question

是否可以创建一个始终在活动单元格中开始的循环？

这是我正在思考的一个例子。

Sub Highlight()

i = 1
Do While Cells(i, ActiveColumn).Value <> ""
    If Cells(i, ActiveColumn).Value = 0 Then
       Cells(i, ActiveColumn).Value = 3
    End If
    i = i + 1
Loop

显然这段代码不起作用。 Cells（i，ActiveColumn）不是真正的参考。