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

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

未经测试，但您可以看到我的目标。如果我知道＆＃34;书签的范围。＆＃34;我可以帮助你。

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

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

1 个答案: