[땡큐엑셀vba & 엑셀매크로] 셀의 복사(copy)와 이동(cut)

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 셀을 다른 위치로 이동(cut)하는 방법에 대해 알아봅니다.
'2) 셀을 다른 위치로 복사(copy)하는 방법에 대해 알아봅니다.
'* 셀의 복사와 이동에 대해 알아봅니다.


Sub 셀이동()

    MsgBox "A1:A5셀을 B1:B5셀로 이동합니다."
    
    'A1셀을 B1셀로 이동
    Cells(1, "A").Cut Destination:=Cells(1, "B")
    
    'A1셀을 B1셀로 이동
    Cells(2, "A").Cut Destination:=Cells(2, "B")
    
    'A1셀을 B1셀로 이동
    Cells(3, "A").Cut (Cells(3, "B"))
    
    'A1셀을 B1셀로 이동
    Cells(4, "A").Cut Destination:=Cells(4, "B")
    
    'A1셀을 B1셀로 이동
    Cells(5, "A").Cut Destination:=Cells(5, "B")
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub



Sub 셀이동2()

    MsgBox "A11:A17셀을 B11:B17셀로 이동합니다."
    
    'a11셀을 b11셀로 이동
    Cells(11, "A").Cut Destination:=Cells(11, "B")
    'a12셀을 b12셀로 이동
    Cells(12, "A").Cut Destination:=Cells(12, "B")
    
    'a13셀을 b13셀로 복사
    Cells(13, "A").Copy Destination:=Cells(13, "B")
    
    'a14셀을 b14셀로 이동
    Cells(14, "A").Cut Destination:=Cells(14, "B")
    'a15셀을 b15셀로 이동
    Cells(15, "A").Cut Destination:=Cells(15, "B")
    
    'a16셀에 수식입력
    Cells(16, "A") = "=SUM(1+2+3+4+5+6+7+8+9+10)"
    'a16셀을 b16셀로 이동
    Cells(16, "A").Cut Destination:=Cells(16, "B")
    
    'a17셀에 수식입력
    Cells(17, "A") = "=SUM(1+2+3+4+5+6+7+8+9+10)"
    'a17셀을 b17셀로 복사
    Cells(17, "A").Copy Destination:=Cells(17, "B")
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

 

이동전

 

 

이동후

 

셀_복사와이동-땡큐엑셀vba.xlsm

0.05MB