セルのコピーあれこれ

■セルのコピーあれこれ

'------------------------------------------------
'セルのコピーに関してDestinationの有無による違い
'------------------------------------------------

'Destinationを指定しない場合
'   クリップボードにコピーされる
'   コピー元のセルが点線で囲まれたままになる(ただし、連続で貼付けできる)
'   貼付け先のセルが選択状態になる
Sub copytest1()

    Worksheets(9).Range("E1").Resize(4, 3).Copy
    Worksheets(10).Range("G1").PasteSpecial xlPasteAll

    
    'コピー元の点線を解除
    Application.CutCopyMode = False
End Sub


'Destinationを指定した場合
'   コピー元のセルが点線で囲まれない
'   貼付け先のセルを選択状態にしない
Sub copytest2()

    Worksheets(9).Range("E1").Resize(4, 3).Copy Destination:=Worksheets(10).Range("G1")
    
End Sub

'------------------------------------------
'値のみコピー
'------------------------------------------
Sub copytest3()

    '値のみコピーしたいなら .PasteSpecial xlPasteValues　ではなく
    '転記でもOK(ただし、転記先のセルのサイズを指定する必要あり)
    Worksheets(10).Range("G1").Resize(4, 3).Value = Worksheets(9).Range("E1").Resize(4, 3).Value
End Sub