Excel VBA alphanumerical 매크로 정렬

Question

VBA를 처음 사용하고 VBA 정렬을 사용하는 모든 스레드에서 내 작은 문제에 대한 해결책을 찾을 수 없습니다.

소프트웨어가 Excel에 데이터를 쓰고 있으며 1-30의 시트를 만듭니다. 제 문제는 그 시트가 순서대로 있지 않다는 것입니다. 모든 내가 지금까지 시도 분류와

, 난 항상 결과를 얻을 : 시트를 1, sheet10, sheet11 ... sheet19, 시트 2, sheet20, sheet21, ... sheet29, 시트 3 , sheet30, sheet4, sheet5, sheet6, ...

시트 1, 시트 2, 시트 3 ... 시트 29, 시트 30과 같은 순서로 솔루션을 찾고 있습니다.

나의 유일한 아이디어는 이제 매크로로 새 시트를 만들고 목록 (sheet1 ... sheet30)을 만들고 그 시트를 목록별로 정렬하게하는 것입니다.

하지만 임씨는 문제를 해결하는 더 똑똑한 방법이 있음을 확신합니다.

미리 제안 사항이 있으시면 알려 주시기 바랍니다. 당신의 시트는 다음 .... "Sheet1의"시트 2 "와 같은 이름 그대로

Answer 1

만큼 :.

Sub RestoreOrder() 
    Dim N As Long, i As Long 
    N = Sheets.Count 
    For i = 1 To N 
     Sheets("Sheet" & i).Move after:=Sheets(N) 
    Next i 
End Sub 

이 일 것으로 보인다