VBA：从SourceSheet复制行并使用动态行粘贴到DestSheet中

Question

我想从另一本工作簿中复制区域。

源：该区域从J15开始到J列的最后一行。我在语法上遇到了麻烦。

目标位置：粘贴的区域与“源工作簿”中的区域相同，但是K列（K15到J列的最后一行）

问题是with语句。我不断收到此错误： https://pasteboard.co/HsxMzPZ.jpg

用于澄清的源表图片 https://pasteboard.co/Hs8gDsF.jpg

Unauthorized

Answer 1

替换此行

.Range(.Cells(15, "J"), .Cells(.Cells(.Rows.Count, "J").End(xlUp).Row, "J")).Copy Destination:=Subwb.Subsht.Range("K15")

使用

.Range(.Cells(15, "J"), .Cells(.Cells(.Rows.Count, "J").End(xlUp).Row, "J")).Copy
    Subsht.Range("K15").PasteSpecial xlPasteAll