VBAの並び替えについて

Question

A列のn行目と(n+1)行目のセルを比較しながら並べ替えるプログラムを作りたいのですがどのようにプログラミングすればいいですか？

Answer 1

「ソートアルゴリズム」でWeb検索すると、たくさんのソートの仕方を説明したページが見つかります。

それらを一通り読んで、どのアルゴリズムのプログラムを作るのかを決めてください。
（アルゴリズムが違うと、プログラムも違ってきますので、プログラムを作り始める前にアルゴリズムを決めておく必要があります）

ソートアルゴリズムの名前（バブルソート、クイックソート等）でWeb検索すると、コード例が書かれたページが見つかりますから、それらを参考にしてVBAでコードを書いてください。

Answer 2

A列のn行目と

エクセルの並び替え機能は使わないまたは使えないということですか？
エクセル君に任せた方がVBAで記述するより、処理速度は速い上に
コードが簡単になると思いますが。。。。

Comments

[zigzag110]

研修の課題を出されたのですがVBAをまったくやったことがないのでよくわからないんです。

Answer 3

質問内容がざっくりしすぎているので的確な回答はできませんが、処理の流れだけを回答すると次のような感じになると思います。

For n=開始行 To 終了行
    If Cells(n,1).Value 比較演算子 Cells(n+1,1).Value Then
        並べ替え処理
    End If
Next

追記
ソートのサンプルです。

Dim 開始行 As Integer
Dim 終了行 As Integer
Dim n As Integer
Dim n2 As Integer
Dim temp

開始行 = 1
終了行 = 10

For n = 終了行 - 1 To 開始行 Step -1
    For n2 = 開始行 To n
        If Cells(n2, 1).Value > Cells(n2 + 1, 1).Value Then
            temp = Cells(n2, 1).Value
            Cells(n2, 1).Value = Cells(n2 + 1, 1).Value
            Cells(n2 + 1, 1).Value = temp
        End If
    Next
Next

Comments

[zigzag110]

並べ替え処理はどうやるんですか？

[ttyp03]

「並べ替え」と言っているのはどういう処理ですか？
入れ替えればよいのですか？

[zigzag110]

小さい順に並べる処理です。

[ttyp03]

バブルソートでしょうか。
一応サンプルを回答しておきましたが、アルゴリズムについてはご自分で調べてみてください。
課題とのことなので、本来なら担当の方に聞くのが良いのですが・・・。

[zigzag110]

担当がどこかに行ってしまって聞けないんです。
開始行はRangeで指定すればいいんですか？

[ttyp03]

ん？
いやサンプルで提示したのは1～10行を対象に処理する作りで完成しています。
開始行と終了行が決まっているなら他の値にすればよいし、動的な処理にするのであれば、別途質問をあげましょう。

[ttyp03]

担当に聞ける環境であるなら、戻り次第、聞くのが手っ取り早いですね。
今は私のコードを解析したり、アルゴリズムを調べたりすればよろしいかと思います。