복사 붙여넣기 신공

모두 붙여 넣기

Sub CopyPasteAll()
    ' A1:B10 영역을 복사합니다.
    Range("A1:B10").Copy

    ' A20:B20 영역에 모두 붙여넣습니다.
    Range("A20:B20").PasteSpecial PasteType:=xlPasteAll

    '복사붙여넣기 모드 해제
    Application.CutCopyMode = False

    Range("A1").Activate

End Sub

값만 붙여 넣기

Sub CopyPasteValues()
    ' A1:B10 영역을 복사합니다.
    Range("A1:B10").Copy

    ' A20:B20 영역에 값만 붙여넣습니다.
    Range("A20:B20").PasteSpecial PasteType:=xlPasteValues

    '복사붙여넣기 모드 해제
    Application.CutCopyMode = False

    Range("A1").Activate

End Sub

서식만 붙여 넣기

Sub CopyPasteFormats()
    ' A1:B10 영역을 복사합니다.
    Range("A1:B10").Copy

    ' A20:B20 영역에 서식만 붙여넣습니다.
    Range("A20:B20").PasteSpecial PasteType:=xlPasteFormats

    '복사붙여넣기 모드 해제
    Application.CutCopyMode = False

    Range("A1").Activate

End Sub

수식만 붙여 넣기

Sub CopyPasteFormulas()
    ' A1:B10 영역을 복사합니다.
    Range("A1:B10").Copy

    ' A20:B20 영역에 수식만 붙여넣습니다.
    Range("A20:B20").PasteSpecial PasteType:=xlPasteFormulas

    '복사붙여넣기 모드 해제
    Application.CutCopyMode = False

    Range("A1").Activate

End Sub