Excel VBA 質問スレ Part56

[560 デフォルトの名無しさん 2018/09/02(日) 00:37:48.59 ID:uO0ayeCX]

>>559
これを登録してもくれるか？ 有用なパッケージだ
SUB SORT(A)
　DIM I, J, T
　FOR I = 1 TO UBOUND(A)
　　FOR J = 1 TO UBOUND(A)
　　　IF A(J - 1) > A(J) THEN
　　　　T = A(I)
　　　　A(I) = A(J)
　　　　A(J) = T
　　　END IF
　　NEXT
　NEXT
END SUB