VBA 昇順・降順でランダムな数字を並び替える。

Question

以下の数字を昇順で並び替えるという課題が出ました。

19
12
34
8
15
3

条件としては今まで使った知識でコードを書く必要があり、for文・if分・Do Whileなどが現在使えます。
自分で考えてみた所、if文で、21と12を比較して小さければ入れ替えて、それをfor文で繰り返していってだと思うのですが、
それをコードで現すとなると現段階の自分の知識では思いつきません。
ネットで配列というものを見たのですが習っていないので使えません...

追記
・かける所までコードを書きました。

Sub test4()

Dim a, b, c, d, e, f, g, h, i As Long

a = 1

 If Cells(1, 1) > Cells(2, 1) Then
  f = Cells(1, 1)
 Cells(1, 1) = Cells(2, 1)
  Cells(2, 1) = f
  
  End If
  
  If Cells(2, 1) > Cells(3, 1) Then
  g = Cells(2, 1)
 Cells(2, 1) = Cells(3, 1)
  Cells(3, 1) = f
  
  End If
  
  If Cells(3, 1) > Cells(4, 1) Then
  g = Cells(3, 1)
 Cells(3, 1) = Cells(4, 1)
  Cells(4, 1) = f
 
  
  End If
  
  If Cells(4, 1) > Cells(5, 1) Then
  g = Cells(4, 1)
 Cells(4, 1) = Cells(5, 1)
  Cells(5, 1) = f

  End If
  
  If Cells(5, 1) > Cells(6, 1) Then
  g = Cells(5, 1)
 Cells(5, 1) = Cells(6, 1)
  Cells(6, 1) = f
 
  End If



End Sub

Comments

[takasima20]

「バブルソート」で検索するといいと思います。

[Risty_kkk]

配列を使わない方法はありますか？

[hatena19]

並べ替えたい数値は、配列を使わずに、どのように与えられているのでしょうか。

[takasima20]

その「ランダムな数字」てのはどこに保持されているものですか? ワークシートのセルの中?

[Risty_kkk]

数字を変数に入れてという感じにすることはできますでしょうか？

[Risty_kkk]

ワークシートのセルの中だと思います。

[takasima20]

そこは断言してほしいとこだけど、とりあえず各数字を参照するコードを質問に追加しましょうか。
ベースもないとこで齟齬がでてもつまらないですからね。

[Risty_kkk]

断言します。

[hatena19]

セル上に数値があるということですね。
なら、エクセルのソート機能をVBAから呼び出せば簡単に実現できますが、それはだめでしょうか。

[Risty_kkk]

ダメらしいです；；

[hatena19]

このままでは丸投げの質問となりteratailでは推奨されない質問になってますので、未完成でもいいので、現状のコードを質問に追記してください。

[nya-3]

やらなければならないことを全て文章にしてみてください。
A1とA2を比較し、小さいほうと入れ替え…などですね。
それすら出来ないというのであれば、
takasima20さんの言うように、バブルソートのやり方を調べるのが良いと思います。

[Risty_kkk]

コード追記しました。

Answer 1

解決できました。

Sub test4()

Dim a, b, c, d, e, f, g, h, i, p As Long
Dim min As Long
Dim gyo As Long
Dim hako As Long


a = 1

Do Until Cells(a, 1) = ""
 a = a + 1
 Loop
 b = a - 1                       '最終行'

  
For c = 1 To b                  '変数cに最終行まで'
Cells(c, 2) = Cells(c, 1)       '(c,2)に(c,1)を代入'
Next                              'A1の数値をB2にコピー'



For p = 1 To b - 1               '変数pに最終行までの繰り返し'
i = p + 1                        'iにp + 1 で、2 To bと同じ意味'
h = i + 1                          'iに　+1'

If Cells(p, 2) > Cells(i, 2) Then  '(p,2)と(i,2)で、(p,2)が大きい場合'
 min = Cells(p, 2)                  'minに(p,2)を代入'
 gyo = p                            'gyoにpを代入'
 Else                               'そうじゃなければ'
 min = Cells(i, 2)                  'minに(i,2)を代入'
 gyo = i                            'gyoにiを代入'
 End If
 
 
 For f = h To b
 If min < Cells(f, 2) Then
 gyo = f
 min = Cells(f, 2)
 
 End If
 Next
 
 hako = Cells(p, 2)
 Cells(p, 2) = min
 Cells(gyo, 2) = hako
 
 
 Next
 
  



End Sub

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-03-15/47493469-baa7-4042-bcca-6db64b18552b.png)