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