一张一张复制范围值

Posted 2023-02-19

【中文标题】一张一张复制范围值

【英文标题】：Copy range values one by one

【发布时间】：2016-02-07 07:48:16

【问题描述】：

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

【问题讨论】：

这里是一些循环示例xlorate.com/excel-vba-loops.html

嗨 Neelesh，你试过了吗？如果是，请输入代码，以便我们帮助改进它:)

感谢 Dave 的链接，但它并没有帮助我找到我想要的东西。@Linga 我现在正在使用数据验证列表。但是每次从列表中选择非常乏味.我在 B 列中有近 1500 个条目

【参考方案1】：

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