OS환경 : Windows 10 pro 64bit
Excel 환경 : 1811
소스: 위행을 아래 행으로 복사하는 매크로
위행을 아래 행으로 복사하는 매크로
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Sub test4() ' ' test4 매크로 ' ' Range("B4").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=R[-1]C" Range("B4").Select Selection.AutoFill Destination:=Range("B4:G4"), Type:=xlFillDefault Range("B4:G4").Select Selection.Copy Range("B6").Select ActiveSheet.Paste Range("B8").Select ActiveSheet.Paste Range("B10").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub |
결과값 :
test4 매크로 실행 전
test4 매크로 실행 후
붉은색 숫자들이 검은색 숫자칸에도 나옴
예제 파일 첨부
매크로테스트2.zip참조 :
'Others' 카테고리의 다른 글
| AIX 의 File Caching(File Cache) (0) | 2020.02.10 |
|---|---|
| Solaris 11.3 유저 패스워드 lock 확인 및 해제 (0) | 2019.11.12 |
| 네이버 메일 내게쓴 메일함 해킹? 스팸? this account has been hacked! Change all your passwords! (2) | 2018.11.20 |
| 질문하는 법 (1) | 2018.11.16 |
| 사이트맵 (0) | 2018.07.10 |