使用VBA并使用“偏移”将一系列单元格值复制并粘贴到另一张工作表中

Question

我想通过分配给宏的按钮将值从一张纸复制并粘贴到另一张纸。 而且，每当我按下按钮时，粘贴的值都会跳过一些行，因此不会粘贴到先前的值上。 到目前为止，下面是我的代码，问题是循环永远不会停止。 有没有更好的办法？ 也许循环不是这样做的方法吗？

如果您知道，请在代码中发布答案，或者给我一些提示。 我真的很感激。

Sub Savestrategy()

Dim Bookmark As Integer
Dim positioner As Integer

For Each cell In Range("A2:L20")

    Worksheets("Dashboard").Range("Bookmark").Copy

    Worksheets("Bookmarks").Range("A2").Offset(positioner, 0).PasteSpecial Paste:=xlPasteFormats
    Worksheets("Bookmarks").Range("A2").Offset(positioner, 0).PasteSpecial Paste:=xlPasteValues

    positioner = positioner + 20

    Application.CutCopyMode = False

Next cell

End Sub

Answer 1

你为什么要循环播放？ 您甚至都没有使用范围循环。

未经测试，但您可以看到我要去哪里。 如果我知道“书签”的范围。 我可以进一步帮助您。

Worksheets("Bookmarks").Range("A2:L20").Offset(20, 0).value = Worksheets("Dashboard").Range(Bookmark).value