Others

vb로 위행을 아래행으로 복사

내맘대로긍정 2018. 12. 7. 11:06

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



참조 : 




저작자표시