セル Sortメソッドの使用例

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


'次の使用例は、シート 1 のセル範囲 A1:C20 を並べ替えます。セル A1 を最優先させるキー フィールド、セル B1 を 2 番目に優先させるキー フィールドとし、昇順になるように行単位で並べ替えます。範囲の先頭行も、見出しではなく、データとして扱われます。

Worksheets("Sheet1").Range("A1:C20").Sort _
    Key1:=Worksheets("Sheet1").Range("A1"), _
    Key2:=Worksheets("Sheet1").Range("B1")
'次の使用例は、シート 1 のセル A1 を含むアクティブ セル領域を並べ替えます。列 A をキー フィールドとし、見出し行があるかどうかは自動的に判断して、タイトル行以外の行を並べ替えます。並べ替えの範囲が指定されていないので、アクティブ セル領域が範囲になります。

Worksheets("Sheet1").Range("A1").Sort _
    Key1:=Worksheets("Sheet1").Columns("A"), _
    Header:=xlGuess

 

 

2000年01月01日|[VBサンプルコード]:[CELL]