행 삽입 후 값 채우기

Step 1: 동일 사원번호 아래에 행 삽입하고 값 채우기

예제 파일에서 버튼을 클릭하면 아래 코드가 실행됩니다. 사원번호가 바뀌는 지점마다 빈 행을 삽입하고, 삽입된 빈 행에 바로 위 행의 데이터를 채워 넣는 코드입니다.

Sub FillUpperContent()

    Dim rngArea As Range
    Dim r As Long
    Dim i As Integer
    Dim intNum As Integer
    Dim strSerial As String, strName As String, strNumber As String
    Dim strAddress As String, strCategory As String
    On Error GoTo ET

    '작업 할 워크시트로 이동합니다.
    Application.Goto Sheets("Workplace").Range("A1"), True
    MsgBox "중복된 사원번호가 발견되면 행을 삽입합니다.", , "www.iExceller.com"

    Set rngArea = ActiveSheet.Columns(3).SpecialCells(xlTextValues)
    '활성화 된 시트의 3번째 컬럼(사원번호) 중에서 값이 들어있는 셀을 작업 영역으로 설정합니다.

    r = rngArea.Rows.Count
    intNum = 1

    With rngArea
        For i = r To 3 Step -1
            If .Cells(i) = .Cells(i).Offset(-1, 0) Then
            '사원번호를 기준으로 동일 자료 여부 점검합니다.

            Else
                .Cells(i).EntireRow.Insert
                '바로 위 데이터와 같은 값이 발견되면 행을 하나 삽입합니다.

            End If
        Next i

        For i = 2 To ActiveSheet.UsedRange.Rows.Count + 1
            If IsEmpty(.Cells(i)) Then
            'rngArea 영역에서 공란 셀이 발견되면 바로 위 데이터 값을 가져옵니다.

                .Cells(i, 0) = .Cells(i, 0).Offset(-1, 0)
                .Cells(i, 1) = .Cells(i, 0).Offset(-1, 1)
                .Cells(i, 2) = .Cells(i, 0).Offset(-1, 2)
                .Cells(i, 3) = .Cells(i, 0).Offset(-1, 3)
                .Cells(i, 4) = .Cells(i, 0).Offset(-1, 4)
                .Cells(i, 5) = .Cells(i, 0).Offset(-1, 5)
                intNum = intNum + 1
            Else
                intNum = 1
            End If
        Next i
    End With

    '엑셀 2007의 표 기능을 적용합니다. 이전 버전의 경우에는 '자동 서식' 기능을 사용하면 됩니다.
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "표1"
    ActiveSheet.ListObjects("표1").TableStyle = "TableStyleMedium7"

ET:
'오류 발생 시에 대비한 에러 트래핑 구문입니다. 거의 하나의 공식처럼 사용되니까 눈여겨 보세요.

    If Err.Number <> 0 Then
        MsgBox Err.Description, , "오류 번호: " & Err.Number
        Err.Clear
    End If

End Sub

시이~월의 마지막 밤, 아니 낮이로군요. 한달 마무리 잘 하시고 11월에 다시 뵙겠습니다.

다음 시간에 또…

정리 — 행 삽입 후 값 채우기 코드 핵심

자주 묻는 질문 (FAQ)

마치며

행을 삽입하는 작업은 아래에서 위로 진행해야 꼬이지 않는다는 점만 기억해 두면 어렵지 않습니다. 여러분의 데이터 구조에 맞게 기준 열과 채울 열을 바꿔서 활용해 보세요!