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

我需要根据B列中的行数在A列中向下复制一个输入框值。

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

根据列数从输入框值自动填充

1 个答案: