Question

我对VBA脚本完全陌生。我的目标是从一个隐藏的工作表名称“ Tracking”中的一个工作簿中复制一行数据，并将该行发布到另一个工作簿工作表名称“ PDOTracking”中

我希望用户指向要粘贴的行并单击“粘贴”，但是当我在第一次之后每次都执行此操作时，数据将向左移动并与列不符。

这是我的剧本

Sub CopyRow()

        ActiveWindow.ScrollWorkbookTabs Sheets:=1
        Application.ScreenUpdating = False
        Sheets("Tracking").Visible = True
        Sheets("Tracking").Select
        Range("$A$6:$Hy$6").Copy
        Sheets("Tracking").Visible = False

End Sub

请记住，在复制时，我不希望用户看到正在复制的工作表，因此我希望它保持隐藏状态。

这是一个粘贴步骤。

Answer 1

尝试

Sub CopyRow()
    dim dr as long
    dr = activecell.row
    workSheets("Tracking").Range("$A$6:$Hy$6").Copy _
        destination:=activesheet.cells(dr, "A")
End Sub

如果您不希望用户看到工作表，则不要使其可见。没有什么可以阻止您从隐藏的工作表中复制数据。

顺便说一句，要从用户可见的隐藏工作表列表中删除工作表，请将跟踪工作表设置为xlsheetveryhidden。

worksheets.visible = xlsheetveryhidden

当我将一行从一张纸复制到另一张纸时，转移粘贴数据的问题

1 个答案: