本記事では、Sortメソッドの使い方や注意点、実際の活用例について詳しく解説します。

ぜひ参考にしてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！

・Excelのセル内のデータを昇順や降順に並び替えることができる
・特定の範囲や複数範囲のデータを正確に整理できる

⬛︎忙しい人向けのコピペ用ソースコード

Sub Sortsample()
'xlAscending:昇順　lDescending：降順
Range("並び替えたい範囲").Sort Key1:=Range("A1"), Order1:=xlDescending
End Sub

並び替えたい範囲はカスタムして使用してください。
Order1には「xlAscending:昇順」または「xlDescending：降順」を当てはめてください。

⬛︎構文の説明

まず、使用するメソッドについてです。使用するのは「Sortメソッド」になります。
Sortメソッドの基本的な構文は以下の通りです。

昇順・降順で並び替え

・昇順で並び替え

まず、昇順で並び替えをしてみましょう。
下図の見本をご覧ください。

A1からA10のセルに文数値が入力されてあります。
こちらを昇順に並び替えてみたいと思います。

では再度構文を見てみましょう。

⬛︎単一範囲と複数範囲の並び替え

以下では、単一範囲と複数範囲の並び替えの方法を説明します。

・単一範囲の並び替え

まずは単一範囲の並び替えの方法です。先ほど紹介してきたソースコードと同じですね。
以下のソースコードをご覧ください。

このソースコードでは、A1からA10の範囲をA1を基準に昇順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

・複数範囲の並び替え

次に、複数範囲の並び替えの方法です。以下のソースコードをご覧ください。

このソースコードでは、A1からB10の範囲を、A列を基準に昇順、B列を基準に降順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

⬛︎よくあるエラーと対処法

VBAのソートに関連するよくあるエラーのいくつかとその対処法を説明します。

1. “実行時エラー ‘1004’:ソートする範囲が正しくありません

このエラーは、ソート範囲が正しく指定されていない場合に発生することがあります。
ソートする範囲がデータが含まれているセル範囲でなければなりません。

対処法
 ソートするデータが正しく指定されていることを確認します。
 ソートする範囲が正しく指定されているか、データが含まれているセルを選択しているかを確認します。

2. “実行時エラー ‘438’:オブジェクトはこのプロパティまたはメソッドをサポートしていません

このエラーは、ソートを実行しようとするオブジェクトがソートメソッドをサポートしていない場合に発生することがあります。
たとえば、ソートしようとするオブジェクトがWorksheetオブジェクトではない場合にこのエラーが発生することがあります。

対処法
ソートメソッドを使用する前に、正しいオブジェクトを参照していることを確認してください。
ソート対象のデータが含まれているWorksheetオブジェクトを適切に指定していることを確認します。

3. “実行時エラー ’91’:オブジェクト変数または With ブロック変数が設定されていません

このエラーは、オブジェクト変数が設定されていない状態でソートを実行しようとした場合に発生することがあります。
ソートするデータを含むオブジェクトが正しく設定されていない可能性があります。

対処法
ソートを実行する前に、ソート対象のデータを含むオブジェクトを正しく設定していることを確認します。
必要に応じてオブジェクトを初期化し、適切に設定してからソートメソッドを呼び出します。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

⬛︎まとめ

いかがだったでしょうか？

以上がマクロVBAでのセルの並び替え（sort）についての紹介でした。

Sortメソッドを使用することで、Excelのデータを効率的に整理することができます。

セルの並び替えは、範囲や基準セル、並び順を適切に指定することで正確な結果を得ることができます。

ソースコードの見本を参考にしながら、自身のデータに応じた並び替えを行ってみてください。

それでは次回の記事でお会いしましょう。

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題14について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの数値を元に、数値を昇順に並び替える練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの数値を昇順に並び替える

動作説明

VBAを使用して、セル番地A1からA10までの数値を昇順に並び替えます。

この問題では、セルA1からA10までの数値を取得し、その値を昇順に並び替えて元のセルに格納する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

数値の並び替えには、セル範囲の取得とソートが必要です。

セル範囲を取得するには、Rangeオブジェクトを使用します。
例えば、セルA1からA10までの範囲を取得するには、Range(“A1:A10“)というように範囲を指定します。

・ヒントその2

セル範囲を並び替え・ソートするためには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
例えば、Range(“A1:A10”).Sortというように呼び出します。

・ヒントその3

ソートする際の基準を指定する必要があります。

昇順に並び替える場合は、Sortメソッドの引数でOrder1パラメータにxlAscendingを指定します。
例えば、Range(“A1:A10”).Sort Order1:=xlAscendingというように指定します。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードは、セル範囲A1からA10までの数値を昇順に並び替えるVBAのマクロです。

それでは実行してみましょう。
結果はこのようになります。

昇順に並び替えることができていますね。

Range(“A1:A10”)でセル範囲を指定し、.Sortメソッドを呼び出してソートを行っています。

Key1パラメータにはソートの基準となるセルを指定しており、ここではA1を指定しています。
Order1パラメータにはソートの順序を指定し、xlAscendingを指定することで昇順に並び替えています。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ソートの方法

セル範囲のソートには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
ソートの基準となるセル範囲やソートの順序を指定することができます。

まとめ

この練習問題では、VBAを使用してセル範囲の数値を昇順に並び替える方法について学びました。

具体的には、セル番地A1からA10までの数値を昇順に並び替える問題を解きました。

この問題を解くためには、Rangeオブジェクトとそのメソッドを使ってセル範囲を取得し、Sortメソッドを使用して数値をソートしました。

VBAを使うことで、Excelの操作を自動化したり、複雑な処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

以上で練習問題14となります。お疲れ様でした！

同じ動作をマクロVBAでも簡単に行うことができます。

様々な塗りつぶしのパターンを紹介していますので是非参考にしてみてください。
それでは見ていきましょう。

⬛︎忙しい人向けのコピペ用プログラム

Sub RGBで変数を使用してセルの背景の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Interior.Color = RGB(Red, Green, Blue)

End Sub

⬛︎構文

まずは構文を説明します。

①RGBで色の指定をする

Range(“色をつけたいセル”).Interior.Color=RGB(赤の要素,緑の要素,青の要素)

②ColorIndexで色を指定する

Range(“色をつけたいセル”).Interior.ColorIndex=インデックス番号

③定数で色を指定する

Range(“色をつけたいセル”).Interior.Color=定数

※色の種類は下記の表参照

⬛︎セルの背景に色をつける

構文では「RGB」「ColorIndex」「定数」での
セルの背景に色をつけるプログラムを紹介しました。

では、実際に各内容を見ていきましょう。

・RGBで色をつける

まずはRGBで色をつける方法を見ていきましょう。
RGBとは「RED:赤」「Green:緑」「Blue:青」の原色を意味しており、
この3色を混ぜて色を指定します。

各数値は「0から255」で指定します。
では構文を再度確認しましょう。

Range(“色をつけたいセル”).Interior.Color=RGB(赤の要素,緑の要素,青の要素)

セルの背景に色をつけたいセルは番地で指定します。
例えばB3のセルを指定するときはRange(“B3”)となります。

Range(“A1:D5”)のように複数範囲でも対応可能です。

一方、RGBの方はRGB(赤の要素,緑の要素,青の要素)のように指示します。

ちなみに各要素の数値が大きければ各原色は濃くなります。
一例を紹介すると下記の通りです。

白:RGB(0,0,0)
黒:RGB(255,255,255)
赤:RGB(255,0,0)
黄色:RGB(255,255,0)
青:RGB(0,0,255)

では実際にプログラムを作成してみましょう。
見本として下図のシートを用意しました。

今回は例で「A1:D5」のセルの背景を「赤」にしたいと思います。
プログラムはこのようになります。

Sub RGBでセルの背景の色を変える()
Range("A1:D5").Interior.Color = RGB(255, 0, 0)
End Sub

では実行してみましょう。
結果はこのようになりました。

A1からD5のセルの背景が赤くなりましたね。

ちなみRGBの数値を知りたい場合は
その他の色から確認が可能です。

「ホーム」タブの「塗りつぶしの色」に「v」がありますよね。

そちらを押すと下に「その他の色」があります。

そこで「ユーザー設定」を選択すると「RGB」の値が確認できます。

・ColorIndexで色を指定する

今度は「ColorIndex」でセルの背景に色をつける方法を紹介します。
ColorIndexは設定によって変わっており、「1から56」で指定します。

ではColorIndexの設定色を確認してみましょう。

まず、「ファイル」タブの「オプション」を選択します。

そこから「保存」を選択し、「ブックの外観の保持」を見てみましょう。

その中の「色」を選択してみましょう。
すると56色の色が表示されます。

この色を基にColorIndexの色が割り振られます。

なのでColorIndexの色はカスタマイズが可能ということです。

ではセルの背景に色をつけてみましょう。
構文はこのようになります。

Range(“色をつけたいセル”).Interior.ColorIndex=インデックス番号

セルの背景に色をつけたいセルは先程と同様に番地で指定します。

インデックス番号は「1から56」の数値です。
今回は見本で「A1:D5」の範囲にインデックス番号「5」で実行してみましょう

プログラムはこのようになります。

Sub ColorIndexでセルの背景の色を変える()
Range("A1:D5").Interior.ColorIndex = 5
End Sub

それでは実行してみましょう。
結果はこのようになりました。

「A1からD5」のセルの背景の色が青色になってますね。

ではインデックス番号と色を確認するプログラムを紹介します。

Sub ColorIndexの設定色を確認する()

Dim R, C, ColorNo

ColorNo = 1

For C = 1 To 6 Step 1
　For R = 1 To 10 Step 1
　　Cells(R, C).Interior.ColorIndex = ColorNo
　　Cells(R, C) = ColorNo
　　ColorNo = ColorNo + 1
　　　If ColorNo = 57 Then
　　　　Exit Sub
　　　End If
　Next R
Next C

End Sub

実行した結果はこちらです。

この結果と、先程のブックの外観の保持の色を比較すると
インデックス番号と設定した色はバラバラに割り振られていることがわかります。

上記プログラムを実行して、
設定がどうなっているのか確認するのも手ですね。

・定数で色を指定する

これまではRGBでの色の指定やColorIndexのインデックス番号のように
数値で色の指定をしましたが、今回は定数で指定します。

構文は下記の通りです。

Range(“色をつけたいセル”).Interior.Color=定数

セルの背景に色をつけたいセルはこれまでと同様に番地で指定します。

色の指定では下記表のようにセルの背景を入力します。

黒であれば「vbBlack」、緑であれば「vbGreen」のように
「vb」の後に色のスペルを入れるのが特徴です。
しかしこれだけでは種類が少ないですよね。

そこで「xl」の後に複雑な色を指定することも可能です。
リンクは下記を参照してください☟

XlRgbColor 列挙 (Excel) | Microsoft Learn
では見本を見ていきましょう。

今回は見本で「A1:D5」の範囲に定数を「vbMagenta」で実行してみましょう

プログラムはこのようになります。

Sub 定数でセルの背景の色を変える()
Range("A1:D5").Interior.Color = vbMagenta
End Sub

それでは実行してみましょう。
結果はこのようになりました。

「A1からD5」のセルの背景の色が紫色になってますね。

⬛︎オススメのセルの背景に色をつける方法

これまで3つのセルの背景に色をつける方法を紹介しましたが、
オススメを挙げるとすると「RGB」での指定になります。

理由としては下記の内容になります。

・色の調整や変更を計算や変数で応用できる
・RGBでの指定はどの条件でも変わらない（ColorIndexはPCの設定で変わる）

例を見ていきます。
下記のプログラムを用意しました。

Sub RGBで変数を使用してセルの背景の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Interior.Color = RGB(Red, Green, Blue)

End Sub

通常RGBの値を数値で入力していましたが、
見本のように変数を活用することができます。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Interior.Color プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
VBAでもセルの背景の色を設定できるのは便利ですね。

例えばIFで条件に当てはまるセルの背景色の色を変更するといったことも可能です。
是非参考にしてみてください。

また、文字に色を付ける方法も下記の記事にまとめています☟

【マクロVBA】文字に色をつける・設定・変更！ Font.ColorとRGB・Index・定数で変更 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

通常の作業で使用するコピペをVBAでも行えるようになるので是非参考にしてみて下さい。

それでは見ていきましょう。

⬛︎コピーする

まずはコピーについてです。

コピーの構造はシンプルで

コピーしたい範囲.Copy

で完結します。

では、それぞれの場面でのコピー方法を見ていきましょう。

・指定セルのコピーをする

まず、1つの指定したセルをコピーする方法を紹介します。

セルの選択はRangeまたはCells でしたよね。
では「コピーしたい範囲.Copy」に当てはめてみましょう。

セル番地B5であれば

Range(“B5”).CopyまたはCells(5, 2).Copyになります。

では下図をご覧ください。

「C3」に入力されている文字をコピーしてみましょう。

プログラムはこのようになります。

Sub 指定セルのコピー()

Cells(3, 3).Copy

End Sub

実行した結果を見てみましょう。

コピーした部分が点線の枠で囲われており、指定位置をコピーした事がわかりますね。

・複数範囲をコピーする

次に複数範囲をコピーする方法についてです。
こちらは先程とあまり変わりません。

例でC5からD8までをコピーするプログラムを見てみましょう。

Sub 複数範囲のコピー()

Range(“C5:D8“).Copy

End Sub

実行した結果はこのようになります。

範囲指定した部分が点線の枠で囲われており、コピーした事がわかりますね。

・行のコピーをする

今度は行のコピーについてです。
行はRows(コピーしたい行数).Copyで選択します。

では見本を見てみましょう。

今回は5行目をコピーしてみましょう。

プログラムはこのようになります。

Sub 複数範囲のコピー()

Rows(5).Copy

End Sub

実行した結果はこちらです。

5行目が点線の枠で囲われており、コピーした事がわかりますね

・列のコピーをする

最後に列のコピーについてです。
列はColumns(コピーしたい列数).Copyで選択します。

では見本を見てみましょう。

今回は4列目のD列をコピーしてみましょう。

プログラムはこのようになります。

Sub 複数範囲のコピー()

Columns(4).Copy

End Sub

実行した結果はこちらです。

4列目のD列が点線の枠で囲われており、コピーした事がわかりますね

⬛︎コピーした結果を貼り付ける

先ほどはコピーの方法を紹介しました。
今度はコピーした後の貼り付けの方法を紹介します。

貼り付けの構造は下記の通りです。

貼り付け位置.PasteSpecial Paste:=貼り付け内容,Operation:=演算内容,SkipBlanks:=True Or False,Transpose:=True Or False)
※PasteSpecial以降は省略可

各貼り付けのオプションを下の表にまとめました。

では例を見てみましょう。

数値のみ貼り付けするときは…
貼り付け位置.PasteSpecial Paste:=xlPasteValues

コメントの貼り付けと行列を入れ替えるときは…
貼り付け位置.PasteSpecial Paste:=xlpasteComments, Transpose:=True

それぞれの貼り付け方法の意味は通常の貼り付けの記事でまとめてますので、下記リンクにてご覧ください。

貼り付けの記事についてはこちらから☟

【様々な貼り付け】値の貼り付け・行と列を入れ替えて貼り付ける方法などのオプション一覧 ► 独学エクセル塾 (dokugakuexcel.com)

では見本を見てみましょう。

例でC5からD8までのデータをコピーして貼り付けたいと思います。

F5には数値のみ貼り付けをしますが、I5にはすべて貼り付け＆行列の入れ替えで貼り付けたいと思います。

プログラムはこのようになります。

Sub コピーペースト()

Range(“C5:D8“).Copy

Range(“F5“).PasteSpecial Paste:=xlPasteValues ‘数値のみ貼り付け

Range(“I5“).PasteSpecial Paste:=xlPasteAll, Transpose:=True ‘全て貼り付け　＆　行列の入れ替え

End Sub

実行した結果はこちら。

狙い通り貼り付ける事ができました。

⬛︎コピー&ペーストを複数回行う場合

コピー&ペーストはとても使用頻度が高いですが、複数回行う場合は少し手間ですよね。

そんな時は配列の仕組みが役立ちます。

イメージで言うと、データをまとめて記録して一気に貼り付ける感じです。

この内容は別の記事で紹介してますので、参考にしてみて下さい。

【マクロVBA】複数の繰り返しのコピー&ペーストが面倒くさい!?高速で一括で貼り付けできる配列とは ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Copy メソッド (Excel) | Microsoft Learn

Range.PasteSpecial メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
よく使うコピペが自動で行えるのはとても便利ですよね。
コピペの位置が決まっており、毎回人が作業している場合は自動化もできそうですね。

是非、今回の記事を参考にして活用してみてください。

それでは次回の記事でお会いしましょう。

プログラムの構造自体は簡単なので
是非参考にしてみてください。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤文字の指定範囲はカスタムして使用してください

青文字のMergeまたはUnMergeはどちらかを指定してください

Sub 選択範囲を結合または解除()
Range("指定範囲").MergeまたはUnMerge
End Sub

⬛︎プログラムの構造

セルの結合:結合したい範囲=Merge
結合の解除:解除したい範囲=UnMerge

⬛︎セルの結合をする

ではセルの結合から見ていきましょう。
今回は様々なパターンを想定して各パターンを紹介したいと思います。

・選択した範囲を結合する

まず選択した範囲を結合する方法についてです。
プログラムは下記の通りです。

Selection.Merge

では見本でB2からC5を選択して結合するプログラムを紹介します。

Sub 選択範囲を結合()

Range(“B2:C5“).Select
Selection.Merge

End Sub

実行した結果はこちらです。

B2からC5までを選択し結合することができました。

・指定範囲を結合する

次に指定範囲を結合する方法について紹介します。

こちらの方法が1番使いやすく、汎用性があります。先程は結合範囲をselectで選択して結合しましたが、指定範囲を一気に結合するイメージです。
プログラムの仕組みは下記のようになります。

Range(結合したい範囲).Merge

では実践です。
B3からD6を選択して結合するプログラムを作成してみましょう。
結果はこのようになります。

Sub 選択範囲を結合()

Range(“B3:D6“).Merge

End Sub

実行した結果はこちらです。

狙い通り結合できていますね。

⬛︎セルの結合を解除をする

先程は結合について紹介しましたが、
今度はセルの結合の解除を見ていきましょう。

・選択した範囲の結合を解除する

まず選択した範囲の結合を解除する方法について紹介します。
プログラムは下記の通りです。

Selection.UnMerge

では見本でB2からC5で結合しているセルを選択して解除するプログラムを紹介します。

Sub 選択範囲の結合を解除()

Range(“B2:C5“).Select
Selection.UnMerge

End Sub

結果はこのようになります。

狙い通り結合を解除することができました。

・指定範囲の結合を解除する

次に指定範囲の結合を解除する方法について紹介します。

プログラムの仕組みは下記のようになります。

Range(結合したい範囲).UnMerge

こちらは指定した範囲のみ解除するわけでなく
指定範囲内にある結合セルはすべて解除されます。
例えばA1からC5まで結合されたセルがあったとします。
しかし解除の指定範囲をA1からA5にして実行しても、範囲外のB1からC5も同じ結合セル内なので解除となります。

では実践です。
B2からC5を指定範囲として結合しているセルを解除するプログラムを作成してみましょう。
結果はこのようになります。

Sub 選択範囲の結合を解除()

Range(“B2:C5”).UnMerge

End Sub

実行した結果はこちらです。

狙い通り結合を解除できていますね。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Merge メソッド (Excel) | Microsoft Learn

Range.UnMerge メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
通常使用するセルの結合・解除がVBAでも可能なので、使用機会があれば是非参考にしてみてください。

それでは次回の記事でお会いしましょう。