Vba 逐个复制范围值

我有两张表，其中表1的L6将有一个来自表2 B:B范围的数据。我需要一个宏，根据命令它将选择B:B，然后将第一个单元格值（B1）复制到表1的L6，下一次单击它将选择B2并将值复制到L6，在达到最后一个值或空白单元格时，它将显示一条消息“无值”.

这里是一些循环示例Hi Neelesh，你试过什么吗？如果是，请输入代码，以便我们可以帮助改进：）谢谢链接Dave，但它没有帮助我查找内容。@Linga我现在使用的是数据验证列表。但是每次从列表中选择都非常繁琐。我在B列中有近1500个条目

Sub MyMacro()
    Static curr As Range
    If curr Is Nothing Then Set curr = Worksheets("Sheet2").Range("B1")

    If curr.Value = vbNullString Then
       MsgBox "No Value"
       Exit Sub
    End If

    ' although Select is unrecommneded in VBA, but since it is required in the problem statement...
    Worksheets("Sheet2").Activate
    curr.Select
    Worksheets("Sheet1").Range("L6").Value = curr.Value
    Set curr = curr.Offset(1, 0)
End Sub