기 타 VBA_개수만큼 셀추가

샘플 파일을 하나 올려 주십시오.

전에 해본 것이라서...

코파일럿에 물어 봤습니다.

Sub InsertRowsBasedOnColumnC()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long, j As Long

    Dim insertCount As Integer

    Set ws = ThisWorkbook.Sheets("Sheet1") ' 작업할 시트를 지정합니다.

    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row ' C열의 마지막 셀을 찾습니다.

    For i = lastRow To 1 Step -1

        insertCount = ws.Cells(i, "C").Value

        If IsNumeric(insertCount) And insertCount > 0 Then

            For j = 1 To insertCount

                ws.Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

            Next j

        End If

    Next i

End Sub

C2에 두고 실행하시면 될 것 같습니다.

D셀에 데이터가 없으면 멈춥니다. 

Sub 숫자만큼행복사하기()

    Application.ScreenUpdating = False

    Do Until ActiveCell.Offset(0, 1) = ""

        EA = ActiveCell.Value

        If EA > 1 Then

            For i = 1 To EA - 1

                ActiveCell.EntireRow.Copy

                ActiveCell.Offset(1, 0).Select

                ActiveCell.EntireRow.Insert

            Next

        End If

        ActiveCell.Offset(1, 0).Select

    Loop

    Application.ScreenUpdating = True

End Sub

네 네^^

Sub 숫자만큼행복사하기()

    Application.ScreenUpdating = False

    Do Until ActiveCell.Offset(0, 1) = ""

        EA = ActiveCell.Value

        If EA > 0 Then

            For i = 1 To EA

                ActiveCell.EntireRow.Copy

                ActiveCell.Offset(1, 0).Select

                ActiveCell.EntireRow.Insert

            Next

        End If

        ActiveCell.Offset(1, 0).Select

    Loop

    Application.ScreenUpdating = True

End Sub