格式化今天的date以匹配列的长度

我正试图有一个macros，将做一些格式化。 我需要在A列中填写今天的date，但只能匹配B列的长度。下面我有一个例子。

Date 1 2 1 2 1 2 

Adate下的列A需要macros知道在A3停止，因为B列停在B3，但是如果第二天我运行这个列B停在B20，我需要macros来填写date到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