Добавьте точное количество в столбце J на ​​основе столбца A

Question

У меня есть таблица от A до E. Я не знаю количество строк столбца A, поэтому это может быть 15 или 450 или любое число. Что мне нужно, так это когда я запускаю макросы, я хочу добавить фиксированное число «7» в столбец J1 до последней строки столбца A. Я не знаю, как это сделать. Я перепробовал много вещей, но безуспешно.

Answer 1

Я решил проблему с этим блоком кода:

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

Спасибо всем.

Answer 2

Давайте предположим, что мы используем Sheet1. Вы можете перейти с листа 1 на:

Тогда попробуйте:

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 3

Попробуйте эту формулу в J1 и перетащите ее или скопируйте в конец строки данных:

Формула в J1: = if (A1 = "", "", 7)