Excel VBA循环，直到两列或多列中的一行为空

我试图创建一个循环，在第一列中自动输入今天的日期，而第二列被填充，并使其在填充所有空单元格后停止

迄今为止的守则：

Sub DateLine()
    Do
        ' Finding first empty row in column A
        Range("A1").End(xlDown).Offset(1, 0).Select
        ' Enter todays date in empty row in Column A
         ActiveCell.FormulaR1C1 = "=TODAY()"
    Loop Until Range("A1").End(xlDown) = Range("B1").End(xlDown)
    End
End Sub

---

目前它正在按预期填充行，但没有停止。有什么想法吗？

如果我理解正确，这会对你有用：

Sub DateLine()
    Do

    ' Finding first empty row in column A
    Range("A1").End(xlDown).Offset(1, 0).Select
    ' Enter todays date in empty row in Column A
     ActiveCell.FormulaR1C1 = "=TODAY()"
    Loop Until Range("A1").End(xlDown).Row = Range("B1").End(xlDown).Row
    End

End Sub

---

在列B中选择你的选择。使用AES快速定位相应行中的所有空白单元格。

with worksheets("Sheet1")   '<~~surely you know which worksheet you are on
    with .range(.cells(1, 2), .cells(rows.count, 2).end(xlup))
        with .offset(0, -1)
            on error resume next
            .specialcells(xlcelltypeblanks).formula = "=today()"
            'alternate permanent date
            '.specialcells(xlcelltypeblanks) = date
            on error goto 0
        end with
    end with
end with

带工作表（“表1”）'