Excel에서 위쪽 셀 값에 따라 빈 행을 삽입하는 방법은 무엇입니까?

Excel에서는 셀의 숫자 값에 따라 그 아래에 빈 행을 삽입해야 할 수 있습니다. 이를 수동으로 수행하면 시간이 많이 소요될 수 있지만, 간단한 VBA 매크로를 사용하면 이 과정을 자동화하여 선택된 범위 내 각 셀 아래에 필요한 수의 빈 행을 빠르게 삽입할 수 있습니다. 아래와 같이 말이죠.

셀 값에 따라 행 삽입

셀 값에 따라 행 삽입

셀 값에 따라 빈 행을 삽입하려면 매크로 코드를 사용할 수 있습니다.

1. 사용 중인 시트를 활성화하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Insert > Module을 클릭하고 아래 코드를 스크립트에 붙여넣습니다.

Sub Insert()
'UpdatebyExtendoffice20170926
    Dim xRg As Range
    Dim xAddress As String
    Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRg(1).End(xlDown).Row
    xFstRow = xRg.Row
    xCol = xRg.Column
    xCount = xRg.Count
    Set xRg = xRg(1)
    For I = xLastRow To xFstRow Step -1
        xNum = Cells(I, xCol)
        If IsNumeric(xNum) And xNum > 0 Then
            Rows(I + 1).Resize(xNum).Insert
            xCount = xCount + xNum
        End If
    Next
    xRg.Resize(xCount, 1).Select
    Application.ScreenUpdating = True
End Sub

3. 누릅니다 F5 키를 눌러 코드를 실행하면 작업할 목록을 선택하라는 대화 상자가 나타납니다. 스크린샷 참조:

4. 확인을 클릭하면 빈 행이 삽입됩니다.