将完整的行从一个表复制并粘贴到另一表

时间:2018-09-25 10:50:44

标签: excel vba excel-vba

我正在尝试选择await waitFor(element(by.id('app-title'))).toHaveValue('DISCOVER').withTimeout(20000); await expect(element(by.id('app-title'))).toHaveValue('DISCOVER'); 中的完整行并将其粘贴到table1中。

选择成功,但缺少副本。

table5

1 个答案:

答案 0 :(得分:1)

尝试隔离不起作用的代码并使之工作。假设您要将第3行从左表复制到第10行:

enter image description here

这是可以完成的最小工作代码:

Option Explicit

Sub TestMe()

    With ActiveSheet
        .ListObjects("Table3").ListRows(3).Range.Copy
        .ListObjects("Table13").ListRows(10).Range.PasteSpecial xlPasteAll
    End With
    Application.CutCopyMode = False

End Sub

然后尝试在此基础上构建。如您所见,它使用.PasteSpecial xlPasteAll而不是粘贴,因为.Paste是工作表的一种方法。

考虑一下-How to avoid using Select in Excel VBA