필터링 후 Excel에서 자동 번호 매기기 또는 다시 번호 매기기를 어떻게 하나요?

우리 모두가 알고 있듯이, 일련의 숫자 목록을 가진 데이터를 필터링한 후 워크시트의 행 번호는 원래 번호와 동일하게 표시됩니다. 이들은 자동으로 다시 번호가 매겨지지 않습니다. 하지만 때때로, 아래 스크린샷에 표시된 것처럼 필터링된 워크시트에서 행을 순서대로 다시 번호를 매기고 싶을 수 있습니다. 이 문서에서는 Excel에서 필터링 후 자동 번호 매기기 또는 다시 번호 매기기를 하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

Kutools for Excel을 사용하여 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

VBA 코드를 사용하여 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

필터링 상태에서는 자동 채우기 핸들을 사용하여 숫자 시퀀스를 채울 수 없으며, 숫자를 하나씩 입력해야 합니다. 그러나 많은 셀이 다시 번호를 매겨야 할 경우 이는 지루하고 시간이 많이 걸릴 수 있습니다. 여기에서는 이 작업을 해결하기 위한 VBA 코드를 소개하겠습니다.

1. ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 매크로를 붙여넣습니다.

VBA 코드: 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. 코드를 붙여넣은 후 F5 키를 눌러 이 코드를 실행하면, 자동 번호 매기기 또는 행 번호를 다시 매길 셀 범위를 선택하라는 메시지 상자가 나타납니다. 스크린샷 참조:

4. 그런 다음 확인을 클릭하면 선택한 범위의 셀이 아래 스크린샷과 같이 순차적으로 다시 번호가 매겨집니다.

참고: 이 코드는 필터 기능을 취소할 때 원래의 연속 행 번호를 파괴합니다. 따라서 먼저 데이터를 백업해야 합니다.

Kutools for Excel을 사용하여 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

Kutools for Excel을 설치했다면 강력한 시퀀스 번호 삽입 기능을 사용하여 필터링된 데이터에만 빠르고 쉽게 시퀀스 번호를 삽입할 수 있습니다.

Kutools for Excel을 설치한 후에는 다음과 같이 하십시오:

1. 필터링된 데이터에 대해 다시 번호를 매길 셀을 선택하십시오.

2. 그런 다음 Kutools > 삽입 > 시퀀스 번호 삽입을 클릭하십시오. 스크린샷 참조:

3. 그리고 Insert Sequence Number 대화 상자가 나타나면 새 버튼을 클릭하십시오. 스크린샷 참조:

4. 그리고 왼쪽 하단 섹션에서 필요한 시퀀스 목록 번호를 생성하십시오. 스크린샷 참조:

5. 시퀀스 설정 후 추가 버튼을 클릭하면 시퀀스 항목이 대화 상자에 추가됩니다. 스크린샷 참조:

6. 그런 다음 Fill Range를 클릭하면 필터링된 데이터가 즉시 다시 번호가 매겨집니다. 스크린샷 참조:

지금 바로 Kutools for Excel 다운로드 및 무료 체험하기!

데모: Kutools for Excel을 사용하여 필터링 후 자동 번호 매기기 또는 다시 번호 매기기

관련 기사:

Excel에서 병합된 셀에 자동으로 번호를 매기는 방법은 무엇인가요?