автозаполнение из поля ввода в соответствии с количеством столбцов

Question

Мне нужно скопировать myValue из поля ввода на основе количества других столбцов.

Sub CopyDownValue()
    Dim MyValue As Variant
    Dim LR As String

    LR = Range("B" & Rows.Count).End(xlUP)
    MyValue = InputBox("Enter Sales Month")
    Range("A2").Value = MyValue
End Sub

Мне нужно значение поля ввода, скопированное в столбец A на основе количества строк в столбце B.

Answer 1

Вы пропустили .Row в своем расчете LR.

Вы также должны квалифицировать свои объекты (в данном случае, диапазоны) с рабочим листом.Это делается с помощью блока With, хотя есть и другие способы.

Sub CopyDownValue()

Dim MyValue As Variant, LR As Long

With Sheets("Sheet1")                                '<--- Update with your sheet name
    LR = .Range("B" & .Rows.Count).End(xlUp).Row
    MyValue = InputBox("Enter Sales Month")
    .Range("A2:A" & LR).Value = MyValue
End With

End Sub