엑셀 매크로 – 선택영역의 행 각각을 2개로 만듦

Sub 매크로1()
'
' 매크로1 매크로
'
' 바로 가기 키: Ctrl+q
'
' 선택영역의 행 각각을 2개로 만듦
 
    a = Selection.Row                   '선택영역 시작 행번
    b = a + Selection.Rows.Count - 1    '선택영역 종료 행번
 
    For i = 0 To (b - a) * 2 Step 2
        c = a + i
        s = c & ":" & c
        Rows(s).Select
 
        '원본을 기본색(검정)으로 변경
        Selection.Font.ColorIndex = xlAutomatic
 
        Selection.Copy                  '복사
 
        Selection.Offset(1, 0).Select   '복사행 밑에 삽입하기 위해서 아래 행을 선택
 
        Selection.Insert Shift:=xlDown  '선택된 행포함 아래 행들을 아래로 밀고 삽입
 
        '삽입되면 수식이 바뀌므로 원본의 수식을 그대로 가져옴 (100개 컬럼)
        For j = 0 To 99
            ActiveCell.Offset(0, j).Formula = ActiveCell.Offset(-1, j).Formula
        Next
 
        '사본을 푸른색으로 변경 (빨강: -16776961  녹색: -11489280  파랑: -4165632  자주: -6279056)
        Selection.Font.Color = -4165632
    Next
 
    Application.CutCopyMode = False     '복사 영역 해제
 
End Sub

답글 남기기

이메일 주소는 공개되지 않습니다. 필수 항목은 *(으)로 표시합니다