しかし、一行のソースコードを複数行のソースコードに置き換えたい場合も存在しますよね。

そこで今回は置き換えを使用して１行から複数行の置き換え方法を紹介したいと思います。
実際の画面を用いて説明していますので是非参考にしてみて下さい。

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

⬛︎通常のソースコードの置き換え

まず、通常の置き換え方法を見ていきましょう。
visual basicの画面で「ctrl＋F」を押します。

すると下図のようなメニュー画面が表示されると思います。

「ctrl＋F」以外にも「編集」から「検索」で同様の画面が出てきます。

通常は検索画面になっており、ここで打ち込んだ文字・数値のコードを
検索することができます。

こちらを置き換えのメニュー画面に変更してみましょう。
先程のメニュー画面の右側に「置換」というボタンがあります。

こちらを押していただくと下図のような画面になると思います。

ちなみに「Ctrl＋H」でも同様の画面が表示されます。

では実際に置き換えてみましょう。

「検索する文字列」のところに置き換え前の文字・数値を入力し、
「置換後の文字列」のところに置き換え後の文字・数値を入力して
「置換」を押すと文字・数値の置き換えができます。

では一例を紹介したいと思います。
今回は見本で「ABC」を「CBA」に変更したいと思います。

まず、「検索する文字列」に「ABC」を入力し、
「置換後の文字列」に「CBA」を入力します。

では「置換」を押してみましょう。
結果はこのようになりました。

「ABC」が「CBA」に置き換わっていますね。

　
検索と置き換えについては下記記事で詳しくまとめています☟

【マクロVBA】ソースコードの検索と置き換えについて！カレントプロシージャ・モジュール・プロジェクト ► 独学エクセル塾 (dokugakuexcel.com)

ここまでは通常の置き換え方法を紹介しましたが、ここからは一行から複数行の置き換え方法を見ていきましょう。

⬛︎一行から複数行への置き換え方法

では本題です。
先程は一行の中の指定した文字・数値を置き換えましたが
今回は一行から複数行の置き換え方法を見ていきましょう。

通常、複数行への置き換えをすることはできません。
しかし、似たようなコードを作成することは可能です。

先程のプログラムを例に見ていきましょう。

Sub 置き換え見本()

Range(“A1”) = “ABC”

End Sub

今回は「A1」に「ABC」を入力するプログラムですが、
「A1」に「A」、「B1」に「B」、「C1」に「C」を入力するプログラムにしてみましょう。

狙いの動作を可能にするプロシージャは下記の通りです。

Sub 置き換え見本()

Range(“A1”) = “A”
Range(“B1”) = “B”
Range(“C1”) = “C”

End Sub

しかし変更後は3行なので置き換えができませんよね。
そこで使用するのが「：（コロン）」になります。

「：（コロン）」は複数行のプログラムを1行にまとめる機能があります。
「：（コロン）」についての詳しい解説は下記記事を参考にしてください。

【マクロVBA】複数行のソースコードを1行・小数行にまとめて短縮する!:(コロン)の活用について ► 独学エクセル塾 (dokugakuexcel.com)

こちらを使用して3行のソースコードを1行にして置き換えます。

それでは置き換えてみましょう。
「検索する文字列」は「”ABC”」で、
「置換後の文字列」は「“A”:Range(“B1”) = “B”:Range(“C1”) = “C”」のようになります。

実行するとこのようになります。

1行を3行分のソースコードに置き換えることができました。
コードは長くなってしまいますが、置き換えの対象が多い場合には便利ですね。

⬛︎公式の説明

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

コード内のテキストを置き換える (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
ソースコードが多ければ多いほど
置き換えの方法は役に立ってきます。

さらに複数行へ置き換えることができたら
作業の効率化につながってきます。

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

そこで今回はプログラムを改行・次の行にわけることで
コンパクトに管理しやすいプログラムを作成する方法について紹介したいと思います。

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

■見本のプログラムを紹介

まず、内容を紹介するにあたりイメージしやすいように
見本の作業とプログラムを用意しました。下図をご覧ください。

内容としてB4からC15の範囲をコピーして
E4を先頭に貼り付けを行います。

さらにその中の条件として

①値のみ貼り付け
②貼り付けによる計算は行わない
③列と行を入れ替える

の条件を元に貼り付けを行いたいと思います。

■プログラムを改行・次の行に分ける

こちらを満たすプログラムを作成してみました。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, Transpose:=True

End Sub

貼り付けの条件が多い為プログラムは長くなってしまい、
モニターを分割して表示していると1部隠れてしまいます。

これではプログラムの入力もしにくく、確認作業（デバッグ）時も手間がかかってしまいます。

では悪い例でEnterキーで改行してみましょう。
結果はこのようになります。

式が成り立たずに「コンパイルエラー」が発生してしまいました。
さらにプログラムも赤文字になり、エラー個所であることがわかります。

ここで本題の対策です。
使用するのは「　_(スペース＆アンダーバー）」です。

使用方法は改行したい位置で「”　_”」を入力します。
では見本のプログラムに組み込んでみましょう。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues _
, xlPasteSpecialOperationNone _
, Transpose:=True

End Sub

長いプログラムを複数行にすることができました。

実際に打ち込んでもエラーになりませんね。
もちろん、この状態で実行することができます。

注意点として「’（アポストロフィー)」を用いてコメントを入力できるのは
最終行のみです。途中で入力してもエラーになってしまいます。

■よくあるエラーと対処法について

ここからは本内容で発生しやすいエラーと対処法について紹介します。

・コンパイルエラー　修正候補：行番号または行ラベルまたはステートメントまたはステートメントの最後

こちらのエラーは「_(アンダーバー）」の前に「　（スペース）」がないことが考えられます。
下図をご覧ください。

正常なプログラムは「　(スペース＆アンダーバー）」がセットで入力されていますが エラーが発生するプログラムは「(アンダーバー）」のみとなっています。

こちらの異常が発生した際は「　_(スペース＆アンダーバー）」のセットをご確認下さい

⬛︎公式の説明

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

Excel Visual Basic for Applications (VBA) リファレンス | Microsoft Learn

■まとめ

いかがだったでしょうか。
今回の見本はあまり長くありませんでしたが
使用する機能によっては、とても長くなるので今回の内容を参考にしてみてください。

Ifで条件分岐する際にAndを用いて複数使用する場合は長くなるので活用できますね。
次回は本内容の対称となる「プログラムを1行にまとめる方法」について紹介したいと思います。

次回の記事はこちらから☟

【マクロVBA知識 26】複数行のプログラムを1行・小数行にまとめて短縮する方法 ► 独学エクセル塾 (dokugakuexcel.com)

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