ホーム > カテゴリ > Excel・VBA >

セルの値をソートする [ExcelのVBA]

セルの値をソートする

B列の値をキーとしてB1からC3のセルを並び替えます。

Private Sub CommandButton1_Click()
  Range("B1").Value = 2
  Range("B2").Value = 1
  Range("B3").Value = 3
      
  Range("C1").Value = "りんご"
  Range("C2").Value = "みかん"
  Range("C3").Value = "メロン"
  
  ' B列のキーを元に「昇順」に並び替える
  Range("B1:C3").Sort Range("B1"), xlAscending
  
  ' B列のキーを元に「降順」に並び替える
  ' Range("B1:C3").Sort Range("B1"), xlDescending
End Sub

[結果]

複数のキーを指定してソートする

次のコードは3つのキー/順序を指定してソートをしています。

Private Sub CommandButton1_Click()
  Range("A1").Value = "1"
  Range("A2").Value = "2"
  Range("A3").Value = "3"
  Range("A4").Value = "3"
  Range("A5").Value = "3"
      
  Range("B1").Value = "りんご"
  Range("B2").Value = "みかん"
  Range("B3").Value = "メロン2"
  Range("B4").Value = "メロン1"
  Range("B5").Value = "メロン1"
  
  Range("C1").Value = "青森県"
  Range("C2").Value = "和歌山県"
  Range("C3").Value = "北海道夕張市"
  Range("C4").Value = "北海道1"
  Range("C5").Value = "北海道2"
  
  ' 3つのキーを元に降順に並び替える
  Range("A1:C5").Sort _
      key1:=Range("A1"), Order1:=xlDescending, _
      key2:=Range("B1"), Order2:=xlAscending, _
      key3:=Range("C1"), Order3:=xlDescending
End Sub

[結果]

VBAの固有操作

[セルの操作]
セルの値/計算式を設定する
セルのフォントを設定する
セルの背景色/網掛けを設定する
セルの文字配置を設定する
セルの表示形式を設定する
セルに罫線を設定する
セルの選択/コピー/貼り付け/切り取り/削除/クリア
セルの結合/結合の解除をする
セルにコメントを追加/削除する
シートの保護とセルのロック解除をする
セルの値をソートする

[テーブル/グラフ/ピボットテーブル]
テーブルの作成/操作
グラフの作成/操作
ピボットテーブルの作成/操作

[ワークシート]
シートの追加/移動/コピー/削除/表示/印刷
ワークシートのイベント

[ワークブック]
ブックを開く/追加/上書き/名前保存/PDFの作成
ワークブックのイベント

[その他]
その他の操作まとめ

エクセル講座のクイックリンク

ホーム 新機能 基本(初級) 基本(中級) 基本(上級) 関数 マクロ VBA TIPS





関連記事


前の記事：シートの保護とセルのロック解除をする [ExcelのVBA]
次の記事：テーブルの作成/操作 [ExcelのVBA]

公開日：2015年07月19日 最終更新日：2015年07月23日
記事NO：01221


この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
プチモンテ代表、アーティスト名：プチモンテ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ～

オリジナル曲を始めました✨

YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte

【男性ボーカル】DA・KA・RA | 新たな明日が風と共に訪れる

【男性、女性ボーカル】時空を超越する先に | 時空と風の交響曲

【女性、男性ボーカル】絆 | 穏やかな心に奏でる旋律