vba - 格式化今天的日期以匹配列长度

Question

我正在尝试有一个可以进行一些格式化的宏。我需要在A列中一直填写今天的日期，但只能匹配B列的长度。下面我有一个例子。

 Date       
         1          2
         1          2
         1          2

日期下的 A 列我需要知道宏在 A3 处停止，因为 B 列在 B3 处停止，但是如果第二天我运行此列 B 在 B20 处停止，我需要宏将日期填写到 A20。

我坚持让长度格式公式起作用。任何帮助都会很棒。

Answer 1

像这样？

Sub Sample()
    Dim LRow As Long

    With Sheets("Sheet1")
        LRow = .Range("B" & .Rows.Count).End(xlUp).Row

        .Range("A1:A" & LRow).Value = Date
        .Columns(1).EntireColumn.AutoFit
    End With
End Sub