No.1ベストアンサー
- 回答日時:
こんにちは。
以下のようには出来るけれども、あまり、難しいことは考えないほうがよいと思いますね。わけがわからなくなりますよ。自分の処理できる範囲内で、作ったほうがよいと思います。
Sub Main()
Dim a As Variant
'範囲の一番上のセルを選択
Set r = Range(ActiveCell, ActiveCell.End(xlDown))
'または、 Set r = Selection '範囲選択
ReDim a(1 To r.Count)
For i = 1 To r.Count
a(i) = r.Cells(i, 1).Value
Next i
ReDim Preserve a(1 To r.Count)
Babble_SortR a
r.Value = Application.Transpose(a)
End Sub
Sub Babble_SortR(a)
'バブルソートメソッド
Dim u As Long
Dim i As Long
Dim j As Long
Dim t As Variant
u = UBound(a)
i = LBound(a)
Do While i < u
j = u
Do While j > i
If a(j) < a(i) Then '昇順
t = a(j)
a(j) = a(i)
a(i) = t
End If
j = j - 1
Loop
i = i + 1
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excel 2列分のDATAの並べ替え 1 2023/01/01 17:12
- C言語・C++・C# pythonのファイルの並びでの読み込みとリストについて 4 2022/04/13 03:52
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- その他(プログラミング・Web制作) pythonでDBのカラム名で取得したオブジェクトの値を表示したい 1 2022/05/13 03:41
- PHP PHPSpreadsheetによる書き出し時のページネーション方法について 1 2023/03/20 10:35
- Excel(エクセル) 何方か知恵をください… 下記のシート1にシート2のDATAを表示させたいです。 (シート1の2行目の 6 2022/03/28 17:27
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- C言語・C++・C# 10個の実数に対する降順ソート結果を出力するプログラムを作りたいのですが、以下のプログラムをどう直せ 1 2022/07/09 22:16
- 英語 data について 6 2023/03/25 11:05
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】Caseマクロを簡潔...
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
【Excel VBA】CSV取込時、数字...
-
エクセル、ページをまたがった...
-
Word2016でExcelデータを差込し...
-
Wordで、表のセルが変なところ...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
エクセルで知らない間に行がず...
-
あるセルに色を付けた時、別の...
-
wordで罫線が引けない・・・
-
ワードで勝手に点線ラインがでる
-
表と票の違いは?
-
WORDの表がいきなり改ページさ...
-
PDFファイルの罫線を消す方法
-
エクセルでセルの中の文字が削...
-
WORD- - - - -点線が消えません
-
エクセル 結合したセルの間にセ...
-
ワードの表の行が広がってしまう
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 図形の選択法は?
-
TextBoxにExcelの背景色を取得
-
PageBreak プロパティを設定で...
-
(VBA)指定したセルがアクティブ...
-
顧客ごとに違う点検案内を作成...
-
VBA 選択したセルが空白であっ...
-
VBAでセルの選択範囲を指定する...
-
【Excel VBA】Caseマクロを簡潔...
-
マクロでの並び替え
-
セル入力文字が、「右のセルに...
-
エクセル、ページをまたがった...
-
パワポの複数ページにまたがる...
-
Word2016でExcelデータを差込し...
-
ワードの文章囲み枠(?)を消...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
ワードの表の行が広がってしまう
-
【Excel VBA】CSV取込時、数字...
-
あるセルに色を付けた時、別の...
-
ワードの表を図にして、ワード...
おすすめ情報