0

いくつかのフォーマットを行うマクロを作成しようとしています。A列に今日の日付を最後まで入力する必要がありますが、B列の長さに一致するだけです。以下に例を示します。

 Date       
         1          2
         1          2
         1          2

日付の下の列Aは、列BがB3で停止するため、マクロがA3で停止することを知る必要がありますが、翌日この列Bを実行するとB20で停止するため、マクロで日付をA20に入力する必要があります。

長さの書式設定式を機能させることに固執しています。どんな助けでも素晴らしいでしょう。

4

1 に答える 1

2

このような？

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
于 2012-06-24T17:43:05.733 に答える