VBA使用使用的范圍偏移粘貼可見范圍

Question

我正在嘗試使用usedrange偏移量粘貼特定的列，以便粘貼的數據不會覆蓋已經存在的數據。 我不斷收到錯誤消息“找不到方法或成員數據”，我不知道如何糾正它。 一切對我來說還不錯。 我可能想念的東西可能很小，但這就是我所擁有的...

 lrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        ActiveSheet.Range("$A$1:$AE$10000").AutoFilter Field:=1, Criteria1:="NA"
        Set sh = Worksheets("Country")
        Set ppage = ThisWorkbook.Worksheets("PPage")
        Set rang = ppage.UsedRange.Offset(1, 0)

        sh.Range("A1:C" & lrow).SpecialCells(xlCellTypeVisible).Copy
        rang("A1").PasteSpecial xlPasteValues
        sh.Range("S1:U" & lrow).SpecialCells(xlCellTypeVisible).Copy
        rang("D1").PasteSpecial xlPasteValues

        Application.CutCopyMode = False

看來問題出在ppage.rang語句周圍，用於粘貼我的值。 任何幫助或朝正確方向推動將不勝感激！ 謝謝！！

Answer 1

您要抵消整個usedrange Set rang=range("a" & ppage.usedrange.rows.count+1) 。

Sub x()

Dim r As Excel.Range
Dim ppage As Excel.Worksheet

Set ppage = Worksheets("sheet1")

ppage.Range("$A$1:$J$10").AutoFilter Field:=1, Criteria1:="NA"

Set r = ppage.Range("a" & ppage.UsedRange.Rows.Count + 1)

ppage.Range("$A$1:$J$10").SpecialCells(xlCellTypeVisible).Copy

r.PasteSpecial xlPasteValues

End Sub