Vba 사전 정렬 방법

하위 ABC ()

Arr = Array("d ","g ","v ","p ","a ")

I = 0 에서 UBound(arr)-1

J = I+1 끝 UBound(arr) 의 경우

Arr(i)>arr(j) 인 경우

Temp = arr(j)

Arr(j) = arr(i)

Arr(i) = Temp

만약 ... 끝날거야

그리고 나서

그리고 나서

[a 1]. Resize( 1, UBound(arr)+1) = arr

끝단 접합