Excel에서 셀 내의 숫자를 정렬하는 방법은 무엇입니까?
우리는 종종 열 목록에서 숫자를 정렬하는 것이 쉽고 일반적입니다. 하지만 단일 셀 내의 숫자를 정렬해 본 적이 있습니까? 아마도 하나씩 배열하는 것 외에는 좋은 방법이 없을 것입니다. 여기에서는 Excel에서 셀 내의 숫자를 정렬하는 방법에 대해 설명하겠습니다.
VBA 코드를 사용하여 쉼표로 구분된 셀 내의 숫자 정렬하기
수식을 사용하여 셀 내의 숫자 정렬하기
워크시트에서 셀 내의 숫자를 정렬하려면, 다음 긴 수식을 적용할 수 있습니다. 아래와 같이 해보세요:
1. 데이터 옆에 다음 수식을 입력하세요. 이 예제에서는 C1 셀에 입력하겠습니다. 스크린샷을 참조하세요:
=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))
2. 그런 다음 Ctrl + Shift + Enter 키를 동시에 누르고, 이 수식을 적용하려는 범위까지 채우기 핸들을 드래그하면 작은 숫자부터 큰 숫자 순으로 정렬된 결과를 얻을 수 있습니다. 스크린샷을 참조하세요:
참고:
1. 셀 내의 숫자 자릿수가 15보다 큰 경우, 이 수식은 정확한 결과를 제공하지 않을 수 있습니다.
2. 숫자를 내림차순으로 정렬하려면 다음 수식을 사용할 수 있습니다: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).
3. 위의 수식에서 A1은 정렬하려는 숫자가 포함된 셀을 나타냅니다. 필요에 따라 변경할 수 있습니다.

Kutools AI로 엑셀의 마법을 풀다
- 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
- 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
- VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
- 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
- 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.
사용자 정의 함수를 사용하여 셀 내의 숫자 정렬하기
수식에는 몇 가지 제한 사항이 있으므로, 15자리 이상의 숫자가 있는 셀에서 숫자를 정렬하기 위해 다음 사용자 정의 함수를 사용할 수 있습니다.
1. ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.
2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.
VBA 코드: 셀 내의 숫자 정렬하기
Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
For j = 1 To UBound(VBA.Split(pNum, i))
xOutput = IIf(pOrder, i & xOutput, xOutput & i)
Next
Next
SortNumsInCell = xOutput
End Function
3. 그런 다음 코드를 저장하고 닫고, 워크시트로 돌아가서 데이터 옆의 빈 셀에 =sortnumsincell(A1) 수식을 입력합니다. 스크린샷을 참조하세요:
4. 그리고 채우기 핸들을 원하는 셀까지 드래그하면, 셀 내의 모든 숫자가 다음과 같은 스크린샷처럼 오름차순으로 정렬됩니다:
참고: 숫자를 내림차순으로 정렬하려면 =sortnumsincell(A1,1) 수식을 입력하세요.
VBA 코드를 사용하여 쉼표로 구분된 셀 내의 숫자 정렬하기
다음 스크린샷과 같이 쉼표, 세미콜론, 마침표 등 특정 문자로 구분된 숫자가 있다면 어떻게 셀 내에서 정렬할 수 있을까요? 이제 이를 정렬하기 위한 VBA 코드를 소개하겠습니다.
1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.
VBA 코드: 쉼표로 구분된 셀 내의 숫자 정렬하기
Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
Arr = VBA.Split(Rng.Value, ",")
For i = 0 To UBound(Arr)
xMin = i
For j = i + 1 To UBound(Arr)
If Arr(xMin) > Arr(j) Then
xMin = j
End If
Next j
If xMin <> i Then
temp = Arr(i)
Arr(i) = Arr(xMin)
Arr(xMin) = temp
End If
Next i
Rng.Value = VBA.Join(Arr, ",")
Next
End Sub
3. 그런 다음 F5 키를 눌러 이 코드를 실행하고, 팝업된 프롬프트 상자에서 숫자가 포함된 셀을 선택합니다. 스크린샷을 참조하세요:
4. 그런 다음 확인을 클릭하면, 원래 범위 내의 셀에 있는 모든 숫자가 오름차순으로 정렬됩니다.
참고: 위의 코드에서 쉼표 “,”를 필요에 따라 다른 문자로 변경할 수 있습니다. 또한 이 코드는 데이터를 오름차순으로만 정렬할 수 있습니다.
관련 기사:
Excel에서 하이픈이 있는 숫자를 정렬하는 방법은 무엇입니까?
Excel에서 가장 빈번한 값으로 데이터를 정렬하는 방법은 무엇입니까?
Excel에서 이메일 주소를 도메인별로 정렬하는 방법은 무엇입니까?
Excel에서 빈 셀을 맨 위로 정렬하는 방법은 무엇입니까?
최고의 오피스 생산성 도구
? | Kutools AI Aide: 지능형 실행, 코드 생성, 사용자 정의 수식 작성, 데이터 분석 및 차트 생성, Kutools 함수 호출을 기반으로 데이터 분석 혁신… |
인기 기능: 중복 찾기, 강조 또는 식별 | 빈 행 삭제 | 데이터 손실 없이 열 또는 셀 결합 | 수식 없이 반올림 ... | |
슈퍼 LOOKUP: 다중 조건 VLookup | 다중 값 VLookup | 다중 시트 조회 | 퍼지 매치 .... | |
고급 드롭다운 목록: 빠르게 드롭다운 목록 만들기 | 종속 드롭다운 목록 | 다중 선택 드롭다운 목록 .... | |
열 관리자: 특정 개수의 열 추가 | 열 이동 | 숨겨진 열의 가시성 상태 전환 | 범위 및 열 비교 ... | |
주요 기능: 그리드 포커스 | 디자인 보기 | 향상된 수식 표시줄 | 통합 문서 및 시트 관리자 | 자동 텍스트 라이브러리 (Auto Text) | 날짜 선택기 | 데이터 병합 | 셀 암호화/해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵은 글꼴/이탤릭체/취소선 필터링...) ... | |
최고의 15가지 도구 모음: 12개의 텍스트 도구 (텍스트 추가, 특정 문자 삭제, ...) | 50+ 차트 유형 (간트 차트, ...) | 40+ 실용적인 수식 (생일을 기반으로 나이 계산, ...) | 19개 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입, ...) | 12개 변환 도구 (단어로 변환하기, 통화 변환, ...) | 7개 병합 및 분할 도구 (고급 행 병합, 셀 분할, ...) | ... 그리고 더 많은 기능들 |
Kutools for Excel로 엑셀 스킬을 강화하고 지금까지 경험하지 못한 효율성을 체험하세요. Kutools for Excel은 생산성을 향상시키고 시간을 절약할 수 있는 300개 이상의 고급 기능을 제공합니다. 가장 필요한 기능을 얻으려면 여기를 클릭하세요...
Office Tab은 탭 인터페이스를 Office에 제공하여 작업을 훨씬 쉽게 만듭니다.
- Word, Excel, PowerPoint에서 탭 편집 및 읽기를 활성화하세요.
- 새 창 대신 동일한 창의 새 탭에서 여러 문서를 열고 생성하세요.
- 생산성을 50% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!