Excel에서 셀 값으로 시트를 정렬하는 방법은 무엇입니까?

Excel 파일을 사용할 때 항상 알파벳, 숫자 또는 탭 색상으로 워크 시트를 정렬하지만 특정 셀 값을 기준으로 시트 탭을 정렬 해 본 적이 있습니까?

수십 개의 워크 시트가있는 통합 문서가 있다고 가정하면 각 워크 시트에서 A1 셀에는 특정 값이 있으며 이제 각 워크 시트의 A1 셀 값을 기준으로이 통합 문서 내의 모든 워크 시트를 오름차순으로 정렬해야합니다. 이 기사를 통해 솔루션을 얻을 수 있습니다.

VBA 코드로 셀 값을 기준으로 모든 워크 시트 정렬

---

VBA 코드로 셀 값을 기준으로 모든 워크 시트 정렬

Excel에서 셀 값을 기준으로 모든 워크 시트를 정렬하는 데 직접적인 방법은 없지만 다음 VBA 코드가 도움이 될 수 있습니다.

1. 누르고 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 셀 값을 기준으로 모든 시트 정렬

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. 코드를 붙여 넣은 후 F5 키를 눌러이 코드를 실행하면 시트를 정렬 할 셀을 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 이제 모든 워크 시트가 모든 워크 시트에서 A1 셀의 텍스트 값에 따라 오름차순으로 정렬 된 것을 볼 수 있습니다.

배송 시 요청 사항:

1. 선택한 셀에 숫자와 텍스트 문자열이 모두있는 경우 숫자가 포함 된 시트가 텍스트 문자열 시트보다 먼저 정렬됩니다.

2. A1 셀 중 하나에 공백이 있으면 상대 워크 시트가 모든 시트의 앞쪽에 정렬됩니다.

---

관련 기사 :

Excel에서 알파벳 / 영숫자 순서로 워크 시트를 정렬하는 방법?

Excel에서 색상별로 워크 시트 탭을 정렬하는 방법은 무엇입니까?

워크 시트 탭의 순서를 바꾸는 방법은 무엇입니까?