728x90
엑사남 7강 Study
| 구분하여 서식만 붙여넣기 |
| Sub 남여서식구분() 초기화둘 Dim i As Long For i = 7 To 16 If Range("e" & i) = Range("e2") Then Range("c2:j2").Copy Range("c" & i).Resize(1, 8).PasteSpecial xlPasteFormats Range("i2:j2").Copy Range("i" & i).Resize(1, 2).PasteSpecial xlPasteFormulas Else If Range("e" & i) = Range("e3") Then Range("c3:j3").Copy Range("c" & i).Resize(1, 8).PasteSpecial xlPasteFormats Range("i3:j3").Copy Range("i" & i).Resize(1, 2).PasteSpecial xlPasteFormulas Else End If End If Next Application.CutCopyMode = False Range("a1").Select End Sub |
| 엑셀 파일 다운로드 |
PasteSpecial, xlPasteValues, xlPasteFormulas, xlPasteFormats, copy-두번째.xlsm
0.11MB
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba, 지우기, 삭제, 서식삭제, 조건부 삭제 (0) | 2020.05.03 |
|---|---|
| 엑셀 vba, 도구, 옵션, 편집기형식, 글꼴, 글자체, vbe (0) | 2020.05.03 |
| 엑셀 vba 값만 붙여넣기, 수식만 붙여넣기, 서식만 붙여넣기 (0) | 2020.05.01 |
| 엑셀 vba 카피 영역 취소, 복사 영역 점선 없애기 (0) | 2020.05.01 |
| 엑셀 vba 기준표를 통해 구분하여 서식 변경하여 넣기 (0) | 2020.05.01 |