엑셀 VBA 특정범위 제외 하고 영역 복사하기 특정범위 복구하기
엑셀 VBA (Excel VBA)2020. 10. 14. 16:07
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
'엑셀 VBA (Excel VBA)' 카테고리의 다른 글
엑셀 VBA 배열 에러 null 값 변환 치환('13' 런타임 오류가 발생하였습니다 : 형식이 일치하지 않습니다) (0) | 2020.09.03 |
---|---|
엑셀 VBA 매크로기록 으로 작성된 코딩을 단축 해 보기 (0) | 2020.05.19 |
엑셀 vba 포함 문자 바꾸기/지우기 (0) | 2020.05.12 |
엑셀 vba find 함수 응용 특정 행 지우기 (0) | 2020.05.08 |
엑셀 vba 텍스트박스(TextBox) 클릭 시 텍스트 전체 선택 (0) | 2020.04.27 |