Excel에서 값을 기준으로 열을 자동 정렬하는 방법은 무엇입니까?

예를 들어, 아래 스크린샷과 같이 구매 테이블이 있다고 가정해 보겠습니다. 이제 이 열에 새 숫자/가격을 입력할 때마다 가격 열이 자동으로 정렬되기를 원한다면 어떻게 해결할 수 있을까요? 여기에서는 VBA 매크로를 사용하여 Excel에서 특정 열을 값에 따라 자동으로 정렬하는 방법을 소개합니다.

VBA를 사용하여 값을 기준으로 열 자동 정렬

VBA를 사용하여 값을 기준으로 열 자동 정렬

이 VBA 매크로는 Excel에서 특정 열에 새 데이터를 입력하거나 값을 변경하는 즉시 해당 열의 모든 데이터를 자동으로 정렬합니다.

1. "시트 탭 바"에서 현재 시트 이름을 마우스 오른쪽 버튼으로 클릭한 다음, 마우스 오른쪽 버튼 메뉴에서 "코드 보기"를 클릭합니다.

2. 열리는 "Microsoft Visual Basic for Application" 대화 상자에서 아래 VBA 매크로 코드를 열린 창에 붙여넣습니다.

VBA: Excel에서 열 자동 정렬

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

참고:
1) 위의 VBA 코드에서 "B:B"는 B열을 자동으로 정렬한다는 의미이며, B1은 B열의 첫 번째 셀이고 "B2"는 B열의 두 번째 셀입니다. 필요에 따라 이를 변경할 수 있습니다.
2) 5번째 줄의 "Header:=xlYes" 스니펫은 정렬하려는 범위에 헤더가 있음을 Excel에 알려주며, 따라서 정렬 시 첫 번째 행은 포함되지 않습니다. 헤더가 없는 경우 "Header:=xlNo"로 변경하고, 4번째 줄의 "Key1:=Range("B2")"를 "Key1:=Range("B1")"로 변경하세요.

3. 그런 다음 워크시트로 돌아가서, 가격 열에 새 숫자를 입력하거나 기존 가격을 수정하면 가격 열이 오름차순으로 자동 정렬됩니다.

참고: 가격 열에 새 숫자를 입력할 때는 반드시 기존 숫자 아래의 첫 번째 빈 셀에 입력해야 합니다. 새로 입력한 숫자와 기존 숫자 사이 또는 기존 숫자 사이에 빈 셀이 있는 경우, 이 열은 자동으로 정렬되지 않습니다.

데모: Excel에서 VBA를 사용하여 값을 기준으로 열 자동 정렬하기