目标范围上的PasteSpecial（格式和值）

Question

美好的一天！

我只想知道是否有人可以纠正我的代码，因为我需要复制表的格式和值以将其粘贴到目标范围时保留该格式，因此我可以纠正我的代码。下面是我认为我需要修改的代码。

If lngIdx = 1 Then
        lngDstLastRow = 1
        Set rngDst = wksDst.Cells(1, 1)
    Else
        lngDstLastRow = LastOccupiedRowNum(wksDst)
        Set rngDst = wksDst.Cells(lngDstLastRow + 1, 1)
    End If
    rngSrc.Copy Destination:=rngDst '<~ this is the copy / paste

   'The Code below does not work at all as it throw an error

    With ActiveSheet.rngDst
        .PasteSpecial xlPasteFormats
       .PasteSpecial xlPasteValues
   End With

预先感谢， Yeojz

Answer 1

如果您需要粘贴值和格式，为什么不这样做：

With ActiveSheet.rngDst
    .PasteSpecial xlPasteAll
End With