엑셀 VBA 특정범위 제외 하고 영역 복사하기 특정범위 복구하기

Sub 버튼()

Dim 제외범위주소 As String
제외범위주소 = "B2,C3" '유지하고 싶은 셀주소를 컴마로 구분하여 지정

Dim 복구리스트 As Object
Set 복구리스트 = CreateObject("Scripting.Dictionary")
복구리스트.CompareMode = 1

'복구 할 범위를 셀주소와 셀값을 구분하여 딕셔너리에 저장
For Each 값 In Split(제외범위주소, ",")
    복구리스트.Add 값, Range(값).Value
Next

'복사하기
Range("a1:c3").Value = Range("e1:g3").Value

'복구하기
For Each 키 In 복구리스트.keys
    Range(키).Value = 복구리스트(키)
Next

End Sub