엑셀 각 행 2개의 행으로 복사하기

1. VBA 편집기 열기
• Fn + Option + F11을 누르면 VBA 편집기가 열립니다.
• 또는 엑셀 상단 메뉴에서 도구 → 매크로 → Visual Basic Editor를 클릭해도 됩니다.

2. 새 모듈 추가
• VBA 창에서 삽입 → 모듈(Module)을 클릭합니다.

3. 코드 입력
• 아래 코드를 복사해서 붙여넣습니다.

Sub DoubleRows()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow As Long, i As Long, newRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Dim newSheet As Worksheet
    Set newSheet = Worksheets.Add
    newSheet.Name = "DuplicatedRows"
    
    newRow = 1
    
    For i = 1 To lastRow
        newSheet.Rows(newRow).Value = ws.Rows(i).Value
        newSheet.Rows(newRow + 1).Value = ws.Rows(i).Value
        newRow = newRow + 2
    Next i
    
    MsgBox "작업 완료!", vbInformation
End Sub