Question

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

 Date       
         1          2
         1          2
         1          2

A列下的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

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

1 个答案: