2次元配列のソート (ID:88629)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 List1をフォームに貼り付けて、SortedプロパティをTrueにして Dim b() As String For i = 0 To UBound(data) List1.AddItem Format(data(i, 0), "0000000000") & " " _ & Format(data(i, 1), "0000000000") Next For i = 0 To List1.ListCount - 1 b = Split(List1.List(i)) data(i, 0) = Val(b(0)): data(i, 1) = Val(b(1)) 'Debug.Print data(i, 0) & " " & data(i, 1) Next こんなかんじかな。 文字列でソートする場合は右詰めで０をパディングします。 マイナスがある場合は、最小値が０になるようにオフセットを つけて、ソートした後に、再びオフセット分引きます。