セル 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 |