Range.PasteSpecial (Excel)

Pega un objeto Range que se ha copiado en el rango especificado.

PasteSpecial (Paste, Operation, SkipBlanks, Transpose)


With Worksheets("Sheet1") 
 .Range("C1:C5").Copy 
 .Range("D1:D5").PasteSpecial _ 
  Operation:=xlPasteSpecialOperationAdd 
End With

Arguments

Los siguientes argumentos son opcionales

Paste (XlPasteType) - La parte del rango que se pega, como xlPasteAll o xlPasteValues.

Aquí puede ver valores posibles para XlPasteType

Operation (XlPasteSpecialOperation) - La operación de pegado, como xlPasteSpecialOperationAdd.

Valores posibles son

xlPasteSpecialOperationAdd	Los datos copiados se agregarán al valor de la celda de destino.
xlPasteSpecialOperationDivide	Los datos copiados dividirán el valor de la celda de destino.
xlPasteSpecialOperationMultiply	Los datos copiados multiplicarán el valor de la celda de destino.
xlPasteSpecialOperationNone	No se realizará ningún cálculo en la operación de pegado.
xlPasteSpecialOperationSubtract	Los datos copiados se restarán del valor de la celda de destino.

SkipBlanks (Boolean) - True para que las celdas en blanco del rango del Portapapeles no se pequen en el rango de destino.

Transpose (Boolean) - True para transponer filas y columnas cuando se pega el rango.