根据A列向J列中添加确切数量的数字

Question

我有一个从A到E的表。我不知道A列的行数，因此它可能是15或450或任何数字。我需要的是运行宏时，我希望它向J1列添加固定数字“ 7”，直到A列的最后一行。我不知道该怎么做。我尝试了很多事情，但没有成功。

Answer 1

让我们假设我们正在使用Sheet1。您可以从sheet1更改为：

然后尝试：

Sub test()

    Dim LR As Long
    Dim i As Long

    With Worksheets("Sheet1")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("J1:J" & LR).Value = "7"
    End With

End Sub

Answer 2

在J1中尝试此公式并将其拖动或复制到数据行的末尾：

J1中的公式：= if（A1 =“”，“”，7）

Answer 3

我已使用以下代码块解决了该问题：

Dim LastRow As Long
    LastRow = y.Sheets("csv").Cells(Rows.Count, "A").End(xlUp).Row
    y.Sheets("csv").Range("J1:J" & LastRow).Value = "7"

谢谢大家。