인접한 셀이 비어있지 않을 경우 Excel에서 행을 자동으로 번호 매기는 방법은 무엇입니까?

Excel에서 채우기 핸들을 사용하여 수동으로 숫자 시리즈를 생성하는 것은 일반적인 방법으로, 목록에 대한 일련번호나 인덱스를 생성하는 데 사용됩니다. 하지만 특정 인접 셀에 데이터가 있는 경우에만 행을 번호 매기고 싶은 상황도 자주 발생합니다. 예를 들어, 목록에서 자동으로 행 번호를 생성하지만 인접한 데이터 셀이 비어있는 경우에는 번호를 건너뛰고 싶을 수 있습니다. 더 나아가 데이터가 입력되거나 삭제됨에 따라 번호가 즉시 업데이트되기를 원할 수도 있습니다. 이렇게 하면 수동 개입 없이 항상 최신 순서를 유지할 수 있습니다.

인접한 셀이 비어있지 않은 경우 행을 수식으로 자동 번호 매기기

인접한 셀이 비어있지 않은 경우 VBA 코드로 행을 자동 번호 매기기

인접한 셀이 비어있지 않은 경우 행을 수식으로 자동 번호 매기기

인접한 셀 값에 기반한 동적 행 번호를 지정하는 효율적인 방법은 Excel 수식을 사용하는 것입니다. 이 방법을 사용하면 인접한 셀에 값이 있을 때만 행 번호가 표시됩니다. 이러한 셀에 데이터를 추가하거나 삭제하면 번호는 자동으로 업데이트되어 일치하도록 조정됩니다. 다음은 사용할 수 있는 실용적인 방법입니다:

1. 번호 매길 시작 위치의 셀을 선택하세요(예: 데이터가 B2에서 시작한다면 A2). 다음 수식을 입력하세요:

=IF(B2<>"",COUNTA($B$2:B2),"")

2. 그다음, 데이터 옆으로 채우기 핸들을 드래그하여 이 수식을 다른 행에 적용하세요. 번호 매김은 자동으로 조정되고, B 열에 데이터가 있는 행에 대해서만 번호가 표시됩니다.

번호가 예상대로 업데이트되지 않는 문제가 발생하는 경우, 관련된 모든 행에 수식이 복사되었는지 확인하고, 병합된 셀이나 데이터 유효성 검사로 인해 범위에 방해가 되는 요소가 없는지 확인하세요. 수식은 정확한 참조에 의존하며, 워크시트 구조 변경으로 인해 중단될 수 있습니다.

인접한 셀이 비어있지 않은 경우 VBA 코드로 행을 자동 번호 매기기

더 고급 사용자이거나, 워크시트 전체에 수식을 적용하기를 원하지 않거나, 데이터 붙여넣기, 블록 제거 또는 빈번한 변경 작업 중에도 번호 매김을 업데이트해야 하는 경우, VBA 매크로는 훌륭한 대안을 제공합니다. VBA를 사용하면 수식 없이 인접한 셀이 수정될 때마다 한 열에서 행 번호를 자동으로 업데이트할 수 있습니다. 이는 데이터 입력 양식, 가져오기 로그 또는 자주 레이아웃이 변경되는 작업 목록에 이상적입니다.

1. Alt + F11을 눌러 Visual Basic for Applications 편집기 창을 엽니다. 프로젝트 탐색기에서 귀하의 통합 문서를 찾고 “Microsoft Excel Objects” 아래의 관련 워크시트(예: “Sheet1”)를 두 번 클릭합니다.

2. 나타나는 코드 창에 다음 코드를 붙여넣습니다. 이 예제는 B열이 비어있지 않은 경우 A열의 행을 번호 매기는 것을 가정합니다; 특정 범위에 맞게 참조를 조정할 수 있습니다:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chk As Range
    Set chk = Intersect(Target, Me.Columns("B"))
    If chk Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Call RenumberNonBlank(Me, "B", "A", 2)
    Application.EnableEvents = True
End Sub
Sub RenumberNonBlank(ws As Worksheet, _
                    keyCol As String, _
                    numCol As String, _
                    firstDataRow As Long)
    Dim lastRow As Long
    Dim r As Long
    Dim seq As Long
    lastRow = ws.Cells(ws.Rows.Count, keyCol).End(xlUp).Row
    seq = 1
    For r = firstDataRow To lastRow
        With ws
            If Trim(.Cells(r, keyCol).Value) <> "" Then
                .Cells(r, numCol).Value = seq
                seq = seq + 1
            Else
                .Cells(r, numCol).ClearContents
            End If
        End With
    Next r
End Sub

3. VBA 편집기를 저장하고 닫습니다. 이제 B열에 내용을 추가, 편집 또는 지우면 A열이 즉시 다시 번호가 매겨져 데이터의 존재 여부를 반영합니다. B열에 항목을 추가하거나 제거하면 시퀀스가 위아래로 이동합니다.