そこからフィルダウンやセルのコピーで
参照先を固定したり、行や列のみ固定したりなどできるとても便利な機能です。

そんな絶対参照・相対参照ですが
一括で設定したい場合や解除したい場合などには、とても一苦労です。

そこで今回は絶対参照・相対参照を一括で切り替えれる方法について紹介します。
それでは見ていきましょう。

⬛︎こんな事が出来るようになる！

絶対参照と相対参照を一括で切り替えれる

⬛︎通常の絶対参照・相対参照について

まず、おさらいとして通常の絶対参照と相対参照を見ていきましょう。
下記の見本を見ていきましょう。

C3のセルに「＝A1」を入力して、A1を参照しています。
この数式の「A1」を選択した状態で「F4」キーを押す事で
A1に「$」が追加されて「＝$A$1」となります。

これが「絶対参照」を表す記号になります。
この状態でフィルダウン、コピーをしても参照先は動く事がありません。

対して「$」がついてない相対参照は

フィルダウン・コピーをすると参照先もあわせて動きます。

また、絶対参照には「絶対行参照」「絶対列参照」があります。
先程の「＝$A$1」の状態で、再度「F4」を押すと
「＝A$1」となります。
この状態が「絶対行参照」で行方向のみ固定となります。
さらに「F4」を押すと「＝$A1」の形になり、
「絶対列参照」となります。こちらで列方向の固定が可能です。

では本題に入りましょう。

通常は「F4」を押して絶対参照と相対参照を切り替えていましたが
複数の数式の絶対参照・相対参照を変更するのには
とても苦労します。

しかし、エクセルの機能を活用すれば簡単に一括で切り替えることが可能です。

では絶対参照から相対参照への切り替えを見ていきましょう。

⬛︎絶対参照から相対参照への一括変更

まずは絶対参照から相対参照に一括で変更する方法を見ていきましょう。
下記の見本をご覧ください。

こちらは簡単で「置き換え」の機能を活用します。

置き換えは「ホーム」の「検索と選択」から
「置換」を選択します。

すると下図のメニューが表示されます。
「検索する文字列」には「$」を入力して
「置換後の文字列」は空白にします。

ここで「すべて置換」を押すと一括で相対参照にする事が可能です。
注意点として1つのセルを選択しているとシート内全ての置き換えとなるので
範囲を絞りたい場合は対象範囲を選択した状態で「すべて置換」を押してください。

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

こちらの仕組みとしては絶対参照は「$」で指定しているので
「$」をなくす事で相対参照になります。

今回は置き換えで「$」を空白に変えるわけですから
置き換え後は相対参照になるという仕組みです。

⬛︎相対参照から絶対参照への一括変更

今度は相対参照から絶対参照へ一括で変更する方法を紹介します。
変更する方法として、3つパターンを用意しました。

・列が同一の場合
・行が同一の場合
・行と列がどちらとも統一されてない場合

では各パターンの対処法を紹介します。

・列が同一の場合

まずは列が同一の場合から見ていきましょう。
例えば「＝A1」や「＝A8」などのように列が同一である場合に有効です。

では下図の例を見てみましょう。
B列の相対参照の数式が並んでいます。

こちらを絶対参照にしてみたいと思います。

方法は絶対参照から相対参照に変更する際に使用した「置き換え」を活用します。

「検索する文字列」には対象の列の英字を入力します。
見本では「B」になります。

「置換後の文字列」は対象の列の英字に「$」を合わせます。
見本では「$B$」になります。

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

すべて絶対参照に変わっていますね。

・行が同一の場合

今度は行が同一の場合の相対参照から絶対参照へ変更する方法を紹介します。
例えば「＝A8」や「＝D8」など行番号が同じ場合に使用できます。

まずは絶対列参照へ一括で変更します。
今回も「置き換え」の機能を活用していきます。

「検索する文字列」には「＝」を入力して
「置換後の文字列」は「＝$」にします。
これで置き換え後は絶対列参照になります。

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

絶対列参照になってますね。

次に絶対行参照を行います。

「検索する文字列」には対象の行番号を入力します。
見本では「8」になりますね。

「置換後の文字列」は$＋行番号にします。
見本では「$8」となります。

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

先ほどの結果とあわせて相対参照から絶対参照へ
変更する事ができました。

・行と列がどちらとも統一されてない場合

これまでは、行または列が同一である場合の
置き換えによる絶対参照への変更方法を見ていきました。

今回は行または列がどちらも同一ではない場合を紹介します。
例えば「＝A1」「＝B5」のような形ですね。

結論から言うと置き換えでの一括変更は不可能です。
行や列の種類が数通りであれば置き換えを繰り返すことを
オススメしますが、多くの数式を対象とする場合はVBAしかありません。

VBAを触った事がない人は少しハードルが高いように思えますが
実行するのみであれば簡単です。

先にコードを紹介します。

Sub 選択セルを相対参照から絶対参照に一括変更()

Dim Targetcell As Range

For Each Targetcell In Selection
　If Targetcell.HasFormula Then
　　Targetcell.Formula = Application.ConvertFormula( _
　　Formula:=Targetcell.Formula, _
　　FromReferenceStyle:=xlA1, _
　　ToAbsolute:=xlAbsolute)
　End If
Next

End Sub

意味としては下記の通りです。
「For Each Targetcell In Selection」から「Next」までの選択しているセルを繰り返し処理します。
「 If Targetcell.HasFormula Then」では対象のセルが数式であるか確認します。
この指示がなければ空白でも実行してしまうため、「#VALUE!」のエラーが発生します。

「Application.ConvertFormula」では実際に数式を変更するコードなのですが
重要なのは「ToAbsolute:=xlAbsolute」になります。
こちらのコードで絶対参照に変換しています。

では補足です。「xlAbsolute」を下表に置き換えると様々な参照が可能になります。

では実践です。
開発タブから「Visual Basic」を選択します。

すると下図の画面が表示されるので実行したいファイルの「ThisWorkbook」を選択します。
その後先ほどのコードをコピーペーストして、実行ボタンを押してください

これで選択したセルの相対参照を絶対参照に変えてくれます。

⬛︎まとめ

いかがだったでしょうか。
使用頻度の高い絶対参照を一括で変えるのには
少しテクニックが必要です。

是非今回の内容を活用して一括での絶対参照・相対参照を切り替えてみてください。

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

普段エクセルで、検索や置き換えの機能を使用している方も多いのでないでしょうが。
対象の文字・数値を検索して、データの場所を確認したり
置き換えで文字・数値を変更したり便利な機能です。

この、検索・置き換えの機能ですがマクロVBAのソースコードでも
同様の機能を使用することができます。

さらにブック内のプロジェクト内やモジュール内、プロシージャ内など
対象を絞って検索・置き換えができるので是非参考にしてみてください。

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

⬛︎検索をする

まず、検索からみていきましょう。

・検索メニューを表示する

検索するにあたって検索メニューを表示する必要があります。
メニューの表示方法として2通り存在します。

①メニューから表示する

まず、メニューから表示する方法です。
こちらはメニュー内の「編集」から「検索」を選択します。

②ショートカットキーを使用する

こちらの方が簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「F」を同時押しすると表示させることができます。
では実際に検索してみましょう。

・検索する

まず検索したい文字・数値を「検索する文字列」に入力します。

そして「検索」を押すごとに対象の文字・数値を表示してくれます。

見本で下記のソースコードを用意しました。

Sub 置き換え見本()

Range(“A1”) = “ABC”

End Sub

方法として「検索する文字列」に検索したい文字を入力します。
今回は「ABC」を検索してみましょう。
「検索する文字列」に「ABC」を入力して「次を検索」を押してみます。

検査した結果はこのようになります。

「ABC」が選択されていますね。
ほかに「ABC」があった場合は「検索」を押すごとに「ABC」の文字列に位置を合わしてくれます。
これで対象の文字・数値があるか検索できますね。

⬛︎置き換えをする

今度は置き換えの方法をみていきましょう。

・置き換えメニューを表示する

置き換えも検索と同様にメニューを表示させる必要があります。
こちらも2パターンあるのでそれぞれ紹介したいと思います。

①検索メニューから切り替え

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

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

この画面が置き換えのメニュー画面となります。

別の方法としてはメニュー内の「編集」から「置換」を選択しても
同様の画面が表示されます。

②ショートカットキーを使用する

こちらも検索と同様に簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「H」を同時押しすると表示させることができます。
では実際に置き換えしてみましょう。

・置き換えをする

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

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

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

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

「ABC」が「CBA」に置き換わっていますね。
こちらも検索と同様にほかに「ABC」があった場合は「置換」を押すごとに「ABC」を「CBA」に置き換えてくれます。

さらに置換の下にある「すべて置換」を押すと
文字通り、すべての検索に該当する文字列を置き換えてくれます。

⬛︎検索・置き換えの対象を選択する

これまでは通常の検索・置き換えの方法を紹介しました。
しかしソースコードは様々な場所に書き込めますよね。
例えばモジュールの中にも複数のプロシージャを作成できますしモジュール自体も複数追加できます。

そこでどの対象範囲で検索・置き換えするのか選択できるようになってます。

操作するところは検査・置き換えメニューの「対象」になります。

ここでは以下の3つが選択可能です。

・カレントプロシージャ
・カレントモジュール
・カレントプロジェクト

ではそれぞれの範囲を見ていきましょう。

・カレントプロシージャ

こちらは一つのプロシージャの検索・置き換えになります。
一つのプロシージャとは「sub プロシージャ名（）」から「End sub」にあたります。
なので一つのプログラム内の検索・置き換えを行います。

検索・置き換えを行う際は対象のプロシージャ内をクリックした後、
検索または置き換えボタンを押すと対象のプロシージャ内での処理となります。

・カレントモジュール

こちらはモジュール内の検索・置き換えを行います。
なのでモジュール内に複数のプロシージャがあるとすると
対象のモジュール内の全てのプロシージャのソースコードが対象になります。

・カレントプロジェクト

こちらは対象ファイル全てのソースコードが対象になります。
モジュールはもちろんのこと、ブック、シートに入力したソースコードが
全て検索・置き換え対象です。

⬛︎公式の説明

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

コード内のテキストを検索する (VBA) | Microsoft Learn

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

⬛︎まとめ

いかがだったでしょうか。
検索・置き換えを活用できればプログラミングが
とっても楽になります。

特に一括で置き換えれるのは
ソースコードを変更したいときにはとても便利です。

さらに１行から複数行への置き換えの応用もまとめてますので是非参考にしてみてください。

【マクロVBA】1行のソースコードを複数行のソースコードに置き換える代用方法について ► 独学エクセル塾 (dokugakuexcel.com)

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

置換の記事についてはこちらから☟

置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

この記事をご覧になられた方は「～（チルダ）」を置き換えてもうまくいかなかったのではないでしょうか。
～（チルダ）はワイルドカードを打ち消すという効果を持っており、置換にもその効果を発揮します。

そこで今回は～（チルダ）を1つの文字として置き換える方法について紹介します。
それでは見ていきましょう。

■～（チルダ）とは

まず、「～（チルダ）」について説明します。
チルダはよく○○から××を　「○○～××」で表す際によく使用する記号ですよね。

実はこの～（チルダ）はワイルドカードを打ち消す機能があります。

下図をご覧ください。

見本で500に「*10」で10をかけていた結果を「/10」で10で割るように変更したいとしましょう。

結果として「*10」を「/10」で置き換えてみましたが「＝500/10」の結果である「50」ではなく「/10」となってしまいました。

こちらの現象として「*10」の*（アスタリスク）がワイルドカードと判定され、
「10を含んだ10以前のすべての文字数値を”/10″に置き換える」といったことになります。

詳しい*（アスタリスク）の置換については下記記事を参考にしてみてください☟

【*（アスタリスク）の置換】うまくいかない原因と対処法！＊ワイルドカードを無視 ► 独学エクセル塾 (dokugakuexcel.com)

ここで「～（チルダ）」を使用して置き換えてみましょう。

使用方法は簡単です。
*（アスタリスク）の前に「～（チルダ）」を入力するとワイルドカードを打ち消してくれます。

うまく置き換えてくれましたね。

ここまでが～（チルダ）の機能になります。
では本題に移りたいと思います。

■～（チルダ）を置き換える

では通常の方法で～（チルダ）を置き換えてみましょう。
下図をご覧ください。

見本として「100～200」という文字・数値を打ち込んでみました。
こちらの見本を「100～200」から「100から200」に置き換えたいとします。
つまり「～（チルダ）」を「から」に置き換えることになります。

では通常通り置き換えてみましょう。

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

置換対象が見つかりません。というエラーが出てしまいました。
原因として「～（チルダ）」はワイルドカード等の機能をなくす役割を持っています。
つまり「検索する文字列（置換したい文字列）」に「～（チルダ）」を打ち込んでも
文字としてではなく機能として判別されます。

では対策を紹介します。
～（チルダ）はワイルドカード等の機能をなくす役割でしたね。
つまり「～（チルダ）」の前に「～（チルダ）」を打ち込み、無効にする機能を無効にします。

少し説明がややこしくなりましたが単刀直入に説明すると
「～（チルダ）」を置き換えたい場合は「～～」として打ち込みます。

では実際の画面を用いて見てみましょう。
「～～」を「から」に置き換えます。

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

狙い通り「～（チルダ）」を文字として置き換えることができましたね。

■まとめ

いかがだったでしょうか。
～（チルダ）は○○～△△のように文字列で使用する機会は多いと思いますが
ワイルドカードの機能を打ち消すといった機能はあまり有名ではありません

～（チルダ）を置き換える際は今回の記事の内容を
うまく活用してみてください。

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

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

この記事をご覧になられた方は「*（アスタリスク）」を置き換えてもうまくいかなかったのではないでしょうか。

*（アスタリスク）はワイルドカードという効果を持っており、置換にもその効果を発揮します。

そこで今回は*（アスタリスク）を1つの文字として置き換える方法について紹介します。
それでは見ていきましょう。

■ワイルドカードとは

ではまず、*（アスタリスク）の持つワイルドカードという機能について紹介します。
*（アスタリスク）は簡単に説明すると「文字・数値何にでも変化する」機能です。

例えば

「　*　○×△」であれば「○×△で終わるすべての数値・文字」
「○×△　*　」であれば「○×△で始まるすべての数値・文字」
「　*　○×△　*　」であれば「○×△を含むすべての数値・文字」

というイメージです。

さらにイメージしやすいように見本を用意しました。

・「123456789」の「*5をaaaに置き換え」

結果は5を含んだそれ以前の数値をすべてaaaに置き換えています。

・「123456789」の「5*をaaaに置き換え」

結果は5を含んだそれ以降の数値をすべてaaaに置き換えています。

・「123456789」の「*5*をaaaに置き換え」

結果は5を含むすべての数値をaaaに置き換えています。

ワイルドカードの理解はできたでしょうか。
正確に使えばとても便利な置換の手法です。

ちなみに置換に限らずワイルドカードは様々な場面で使用できます。

■*（アスタリスク）の置換で起こる問題点

先ほどは（アスタリスク）のワイルドカードについて紹介しました。 しかし*（アスタリスク）を文字として置き換えたいときには問題が生じます。

下図の見本をご覧ください。

「500*10」の計算をしたいとします。 なので「=500*10」と打ち込みました。

結果は500*10で5000になります。

しかしここで「10」で10をかけていた結果を「/10」で10で割るように変更したいとしましょう。 今回は置換で「*10」から「/10」に変更してみましょう。

置き換えた結果はこのようになります。

「＝500/10」の結果である「50」ではなく「/10」となってしまいました。
こちらの現象として「*10」の（*アスタリスク）がワイルドカードと判定され、
「10を含んだ10以前のすべての文字数値を”/10″に置き換える」といったことになります。

*（アスタリスク）を文字として置き換えたい場合はワイルドカードが厄介ですね。
では対策を見ていきましょう。

■*（アスタリスク）を1つの文字として置き換える

では*（アスタリスク）を文字として置き換えてみます。
使用するのは「～（チルダ）」という記号です。
～（チルダ）はワイルドカードを打ち消す機能があります。

○○から××を　「○○～××」で表す際に使用する記号ですね。

使用方法は簡単です。
*（アスタリスク）の前に「～（チルダ）」を入力するとワイルドカードを打ち消してくれます。

なので先ほどは検索する文字列を「*10」としていましたが「～*10」に変更すればいいです。
では実際の結果を見ていきましょう。

置き換えた結果はこのようになります。

無事ワイルドカードを無視して*（アスタリスク）を文字で置き換えることができました。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

ワイルドカード文字の例 (microsoft.com)

■まとめ

いかがだったでしょうか。
*（アスタリスク）のワイルドカードはとても便利ですが
文字で判別するとなると対応方法を考えなければなりません。

ぜひ今回の記事を参考に*（アスタリスク）とワイルドカードを
うまく活用してみてください。

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

通常の置換機能はこちらから☟

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

その置換機能がマクロVBAでも実行することができます。

今回は選択範囲・複数範囲での置換や部分一致・完全一致置換、

大文字・小文字の区別など様々な調整方法をまとめてますので

ぜひ参考にしてみてください。

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

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

赤字の部分をカスタムして使用してください。

Sub 文字数値の部分一致置換()
Range("ここに置換対象の範囲").Replace What:="置換前の文字・数値", Replacement:="置換後の文字・数値", LookAt:=xlPart
End Sub

■文字・数値を置き換える

・置換の基本プログラム

対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

・置換のオプション機能

■ Replaceを使用して文字・数値を置き換える

・通常の置換

では見本を元に進めていきます。
下図をご覧ください。

B3に「1」という数値がありますね。
では「1」を「2」に置き換えてみましょう。

使用方法はこのようになります。

対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

対象範囲は置き換えたい範囲なので「Ｂ3」ですね。
検索文字・数値は「1」、置換文字・数値は「2」ですね。

それでは当てはめてみましょう。

Range(“B3”).Replace What:=1, Replacement:=2

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

Sub 文字数値の置換()

Range(“B3”).Replace What:=1, Replacement:=2

End Sub

それでは実行してみたいと思います。

「1」から「2」に変更することができました。

・複数範囲の置換方法

先ほど置換方法は複数の範囲でも置換が可能です。
下図の見本をご覧ください。

B2からE4の範囲に「A」または「B」の文字列が入力されてあります。
このなかの「A」を「C」に一気に置き換えてみましょう。

プログラムの構造を振り返りましょう。
対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

この対象範囲を複数範囲にするだけで作業が可能になります。
プログラムは以下の通りです。

Sub 文字数値の置換()

Range(“B2：E4”).Replace What:=”A”, Replacement:=”C”

End Sub

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

複数範囲でも「A」が「C」になりました。

■オプションを使用して置換条件を設定する

通常のエクセルの機能の置換のように
VBAの置換でも大文字・小文字の区別や、全角・半角の区別などの機能もあります。
不要であれば省略可能なプログラムですが、必要な場合に追加してください。

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

・検索内容の一部の置換・完全一致のみ置換する

まずは検索内容が一部でも当てはまれば置き換える方法と、
完全一致で置き換える方法について紹介します。

使用するのは下記の通りです。

部分一致：LookAt:=xlPart
完全一致：LookAt:=xlWhole

下図をご覧ください。

「AAA」という文字がD2とD3に入力してあります。
そして今回は「A」から「B」に置き換えていきます。

2行目は部分一致のLookAt:=xlPartで実行。
3行目は完全一致のLookAt:=xlWholeを使用して実行していきます。

使用方法は簡単で、これまで説明した
「対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値」
の後に「,」を入力して追記するだけです。

それではプログラムを見ていきましょう。

Sub 文字数値の部分一致置換()

Range(“D2″).Replace What:=”A”, Replacement:=”B”, LookAt:=xlPart
Range(“D3″).Replace What:=”A”, Replacement:=”B”, LookAt:=xlWhole

End Sub

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

部分一致で置き換えたものは、「A」である文字はすべて「B」になるため
「BBB」に変化しました。
完全一致の方は「A」で完全一致しないので置き換えはされていません。

では、今度は「AAA」を「BBB」に置き換えてみましょう。

プログラムはこのようになります。
Sub 文字数値の部分一致置換()

Range(“D2″).Replace What:=”AAA”, Replacement:=”BBB”, LookAt:=xlPart
Range(“D3″).Replace What:=”AAA”, Replacement:=”BBB”, LookAt:=xlWhole

End Sub

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

今度は「D3」の「AAA」も完全一致するので「BBB」に変化してくれました。

・列方向/行方向に置き換え

次に列方向に置き換えするのか、行方向に置き換えするのか制御する方法です。

使用するものは下記の通りです。

列方向に置き換え：SearchOrder:=xlByColumns
行方向に置き換え：SearchOrder:=xlByRows

使用方法は簡単で、先ほど同様に通常の置換プログラムの後に追加すればいいだけです。

一例でプログラムを載せます。

Range(“D2：R4″).Replace What:=”A”, Replacement:=”B”

このプログラムは「D2からR4」の範囲の「A」を「B」に置き換えるプログラムですが
置き換える方向を行方向に置き換えたい場合はこのようになります。

Range(“D2：R4″).Replace What:=”A”, Replacement:=”B”, SearchOrder:=xlByRows

これで行方向に置き換えが可能になりました。

・大文字と小文字を区別

つぎは大文字と小文字を区別する方法です
大文字・小文字の区別をしたい場合は通常のプログラムに
「 MatchCase:=True」を追加すれば区別が可能になります。

下図をご覧ください。

「D2」「D3」に「a」が入力されてあります。
今回は「A」から「B」に置き換えてみます。

それでは通常の置換と大文字・小文字を区別した置換を見てみましょう。

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

Sub 文字の大文字と小文字の区別置換()

Range(“D2″).Replace What:=”A”, Replacement:=”B”
Range(“D3″).Replace What:=”A”, Replacement:=”B”, MatchCase:=True

End Sub

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

通常は大文字・小文字の区別がない為、小文字の「a」でも「B」に置き換えていますが
区別した方は対象ではなくなるのでそのままになりました。

・全角・半角を区別しない

次は全角・半角の区別しない方法についてです。
通常のプログラムに「MatchByte:=False」を追加すれば全角・半角を区別しない置換が可能になります。

下図をご覧ください。

「D2」「D3」に「半角のｱ」が入力されてあります。
今回は「全角のア」から「イ」に置き換えてみます。

それでは通常の置換と全角・半角を区別しない置換を見てみましょう。

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

Sub 文字の全角半角を区別しない置換()

Range(“D2″).Replace What:=”ア”, Replacement:=”イ”
Range(“D3″).Replace What:=”ア”, Replacement:=”イ”, MatchByte:=False

End Sub

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

通常は区別するのでそのままですが
MatchByte:=Falseを追加した方は「イ」に置き換えることができました。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Replace メソッド (Excel) | Microsoft Docs

■まとめ

いかがだったでしょうか。
VBAでも置換機能が使えるのは便利な機能ですよね。

ぜひ身に着けて活用してみてください。

次回はSelect Caseの機能について紹介します。記事はこちらから☟

【マクロVBA知識 24】複数のIfを短縮!Select Caseで様々な条件・ケースの分岐処理 ► 独学エクセル塾 (dokugakuexcel.com)

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

今まで時間をかけていた作業がグッと楽になるかもしれませんね。

似たような関数もあるのですがこちらの方が個人的には好きです。

では早速見ていきましょう。

■参照方法の見本

下記のような総当たりの表を作成しました。

B行の氏名を変更すると「D3からD8」「E2からJ2」の名前も変わるようなシートを

作ろうと思います。

「D3からD8」の方は簡単ですね。
「D3」に「＝Ｂ3」を入力してプルダウンすればB行の名前と連携してくれますね

トレースをしても連携していることがわかります。

問題は行方向です。

悪い見本として行方向のように列方向でもプルダウンしてみましょう。
「E3」に「＝Ｂ3」を入力します。

そこから行方向にプルダウンすると…

予想通り列方向に参照がズレて、望んだ参照にはなっていません。

B行をコピーして行と列を入れ替えて貼り付けしてもいいですが、

名前を随時入れ替える際は、毎回貼り付けるのも面倒ですよね。

さらに1つずつ参照を入力してもいいのですがこの記事をご覧の方は

データが多すぎて、この記事を探されたのではないでしょうか。

では実際に対策を紹介したいと思います。

■置換を活用して列方向に連続した行参照をする

今回は置換の仕組みを利用した方法を紹介したいと思います。

置換の記事についてはこちらから☟

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

では先ほどの総当たり表をもとに進めていきましょう。

まず空いたセルに「＝Ｂ3」を入力してください。
今回の見本では「Ｌ3」の空白を活用します。

この状態でL3から名前の数分、プルダウンしましょう。見本では

氏名が6つあるのでＬ8までフィルダウンですね。

結果はこのようになると思います。

トレースしてみても連携していますね。

ここで参照した式をすべて選択してください。見本では「Ｌ3からL8」になります。
そして使用するのが「置換」です。

置換を選択し、検索する文字列に「＝（イコール）」を打ち込みます。
さらに置換後の文字列を参照した数式と被らない文字・数値を打ち込みます。
内容を読み進めていくと参照している文字・数値と被らないようにするかがわかると思います。

今回は「=」を「QQQ」に置き換えていきます。

置き換え後はこのようになります。

参照状態ではなく通常の文字列となりました。

「=Ｂ3」だったものは「ＱＱＱＢ3」となりました。

では「L3からL8」をコピーしてください。

そして本来、表示したい行の先頭のE3を右クリックします。

ここに貼り付けを行うのですが、貼り付け方法は「行と列を入れ変える」を選択してください。

表の書式などを崩したくない場合は「値」を選択してください。

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

勘の鋭い人はここで行いたいことがわかるのではないでしょうか。
ちなみに「QQQ」に置き換えず、関数のまま行列を入れ替えて貼り付けてもエラーになってしまいます。

では仕上げです。
「QQQ」を「=」に戻してあげます。
この際、参照の文字と被る数値・文字を＝から置き換えてしまうと途中の式にも＝になってしまうので
被らない文字・数値に置き換えると説明したのはこのためです。

では実施してみましょう。

検索する文字列を「QQQ」。置換後の文字列を「＝」にします。

実行すると…

参照状態がもとに戻り、うまく機能していますね。
この状態でB列の氏名を変更しても…

名前も変わってくれるようになりました。

配列関数を使えば同様の参照ができるのですが、個人的にはこちらの方法が参照先が

わかりやすいのでしっくりきます。

■まとめ

いかがだったでしょうか。
１つずつ参照していた作業が置換の仕組みを活用することで
列方向に連続した行参照をすることができました。

ぜひ参考にしてみてください。

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

今回はそんな変更・置換機能のついて紹介していきたいと思います。
さらに大文字小文字の区別の有無やセル内の内容の完全一致の有無、
半角全角を区別するのかなどのオプション機能も踏まえて説明していきます。

置き換えに関してはとても便利な機能になっており
一括で文字を変更したい際には面倒な打ち換え作業が１クリックで終わってしまいます。
「2021年」から「2022年」にすべて打ち換えたい！などという作業にはもってこいです。

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

■文字・数値を置換する

ではまず文字の置換をしてみましょう。

対象の文字を「あいうえお」とします。
では「あいうえお」を「かきくけこ」に置き換えてみましょう。

「ホーム」の「検索と選択」を押してみてください。

するとメニューが出るので「置換」を押してみましょう。

これにより置換の画面が出てきます。

使用方法は以下の通りです。

検索する文字列：置換する前の文字・数値
置換後の文字列：置換した後の文字・数値

今回は
「あいうえお」から「かきくけこ」になるので
検索する文字列を「あいうえお」、置換後の文字列を「かきくけこ」になります。

では打ち込んでみましょう。

このようになります。
置換方法として、「次を検索」から置き換えたいセルに位置を揃えて

「置換」によって置換するか「すべて置換」を押します。

注意点として「すべて置換」を押すとほかのセルに「あいうえお」があればすべて「かきくけこ」に置き換わってしまいます。

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

無事、「かきくけこ」に置き換えることができました。

■範囲を選択して範囲内で文字・数値を置き換える

次に範囲を選択して、選択範囲内で文字・数値で置き換えてみましょう。
対象の文字を増やしてみました。

今回は「あいうえお」が並んでいるデータがありますが
５行目から９行目のみ「かきくけこ」に置き換えて見ます。

まず置き換えしたい範囲を選択します。
ここでは「Ｂ5：Ｂ9」になりますね。

この状態で検索する文字列を「あいうえお」、置換後の文字列を「かきくけこ」で「すべて置換」を実行しましょう。
これにより選択範囲内で「あいうえお」すべてを「かきくけこ」に置き換えるようになります。
結果はこのようになります。

選択した範囲内で置換をすることができました。

■検索のオプションを活用する

これまでで基本的な置換方法を説明しました。
さらに高度な検索をするため、オプション機能を見てみましょう。

オプション画面は検索画面の「オプション」を押してみてください。

このような画面が出てきましたかね？

ではそれぞれのオプションを見ていきましょう。

・検索場所

検索場所は「シート」または「ブック」のどちらかを検索できます。
検索となってますが置換前の検索する文字列なので気にしないでください。
使用方法としては下記の通りです

シート：シート内で検索する
ブック：ブックにあるすべてのシート内で検索をする。

こちらは置換をどの規模で行いたいかによって選択を変えればいいと思います。

・検索方向

検索方向は「行」と「列」を選択できます。

違いは行順に検索するか列順に検索するかの違いです。
正直あまり変えることはないですが
該当データが多く１つずつ確認していきたいときには
行と列方向それぞれ確認しやすい方を選ぶと便利ですね。

・検索対象

検索対象は通常の検索では「数式」「値」「コメント」を選択できます。
しかし置換では「数式」しか選択できません。

・大文字と小文字を区別する

こちらは文字通りです。
検索する際に大文字と小文字を分けて検索して置換するか、一緒に検索して置換するかが選択できます。

たとえば「ABC」と「abc」というデータがあったとします。
検索を「abc」としたとき

大文字と小文字を区別するにチェックを入れていると
「abc」しか該当データはありません

対して大文字と小文字を区別するにチェックを外すと
「ABC」と「abc」の２つの該当データとして検索できる仕組みです。

・セル内容が完全に同一であるものを検索する

こちらも例をもとに説明します。
「ABC」というデータがあったとします。

セル内容が完全に同一であるものを検索するにチェックを入れた状態で「AB」を検索しても
セルに「AB」のみのデータが無いため、検索データはありません。

対してセル内容が完全に同一であるものを検索するにチェックを外した状態で「AB」を検索すると
「ABC」の文字の一部の「AB」を読み取り「ABC」が該当データとなります。

・半角と全角を区別する

こちらは英語の大文字と小文字の区別に似ていますね。

全角で入力された「アイウ」というデータがあったとします。
その際に半角と全角を区別するにチェックを入れた状態で半角の「ｱｲｳ」を検索すると該当データはありません。

対して半角と全角を区別するにチェックを外した状態で半角の「ｱｲｳ」を検索すると全角の「アイウ」も含めて検索・置換できるという仕組みです。