Vba 의 문자열은 순서대로 정렬됩니다.

개인? Sub? 워크시트 _ 변경 (ByVal? 목표? 무엇으로? 범위)

신청하다. 이벤트 사용? =? 가짜? 이벤트 응답 마스킹

만약? 목표. 주소? =? "$A$ 1"? 그리고 나서

대답? =? 범위 ('$A$ 1')? 문자열 가져오기

B? =? 린 (a)? 문자열의 문자 수를 계산합니다.

암담한가? Arrive) 를 참조하십시오

레딤? Arr( 1? 어디 가? B)

뭐 때문에? 나? =? 1? 어디 가? B

아르? =? 미드 (a, 나,? 1)? 문자열을 배열 arr 로 분할합니다

다음? 나

정리하다

뭐 때문에? 나? =? 1? 어디 가? B? -응? 1? 외부 주기 수

뭐 때문에? J? =? 1? 어디 가? B? -응? 나? 내부 주기 수

만약? ASC(arr(j)? & gt? ASC(arr(j? +? 1)? 그리고는요? 다음보다 크면 위치를 바꿉니다.

Tmp? =? 배열 (j)

아르 (j)? =? 아르 (j)? +? 1)

아르 (j)? +? 1)? =? 터미널 모니터 (Terminal Monitor Program 의 약자)

끝? 만약

다음? J.

다음? 나

대답? =? "? 의 빈 문자열입니다.

뭐 때문에? 나? =? 1? 어디 가? B

대답? =? 대답? & amp? 아르? 배열 대 문자열

다음? 나

범위 ('$A$ 1')? =? 대답? 정렬된 문자열은 원래 셀로 돌아갑니다.

끝? 만약

신청하다. 이벤트 사용? =? 정말? 이벤트 응답 설정

끝? 워크시트 탭을 마우스 오른쪽 버튼으로 클릭하여 코드를 보고 위의 코드를 붙여넣습니다. 그런 다음 A 1 셀에 문자열을 입력하여 효과를 확인합니다.