[엑셀] 셀 한꺼번에 복사하기 매크로

Sub copy_macro()
'
' copy_macro 매크로

' Critical
    DSTCOL = 120
    For SRCCOL = 3 To 115 Step 2
      Cells(DSTCOL, 2).Value = Cells(SRCCOL, 3).Value
      DSTCOL = DSTCOL + 1
    Next

    DSTCOL = 120
    For SRCCOL = 4 To 116 Step 2
      Cells(DSTCOL, 3).Value = Cells(SRCCOL, 3).Value
      DSTCOL = DSTCOL + 1
    Next

' High
    DSTCOL = 120
    For SRCCOL = 3 To 115 Step 2
      Cells(DSTCOL, 4).Value = Cells(SRCCOL, 4).Value
      DSTCOL = DSTCOL + 1
    Next

    DSTCOL = 120
    For SRCCOL = 4 To 116 Step 2
      Cells(DSTCOL, 5).Value = Cells(SRCCOL, 4).Value
      DSTCOL = DSTCOL + 1
    Next

' Medium
    DSTCOL = 120
    For SRCCOL = 3 To 115 Step 2
      Cells(DSTCOL, 6).Value = Cells(SRCCOL, 5).Value
      DSTCOL = DSTCOL + 1
    Next

    DSTCOL = 120
    For SRCCOL = 4 To 116 Step 2
      Cells(DSTCOL, 7).Value = Cells(SRCCOL, 5).Value
      DSTCOL = DSTCOL + 1
    Next

' Low
    DSTCOL = 120
    For SRCCOL = 3 To 115 Step 2
      Cells(DSTCOL, 8).Value = Cells(SRCCOL, 6).Value
      DSTCOL = DSTCOL + 1
    Next

    DSTCOL = 120
    For SRCCOL = 4 To 116 Step 2
      Cells(DSTCOL, 9).Value = Cells(SRCCOL, 6).Value
      DSTCOL = DSTCOL + 1
    Next

' 서비스명
    DSTCOL = 120
    For SRCCOL = 3 To 115 Step 2
      Cells(DSTCOL, 1).Value = Cells(SRCCOL, 1).Value
      DSTCOL = DSTCOL + 1
    Next

End Sub