トップ > 汎用コード > 複数の単語を一括置換

複数の単語を一括置換

アクティブブック内の複数の文字列を一括で置換するマクロです。



マクロ実行後に「元に戻す」機能は使用できません。
事前にブックを保存しておくことをお薦めします。

コードの貼り付け場所

サンプルコード

Sub Sample_Replace_1() 'アクティブシート対象
    Dim varSearch As Variant, varAfRepl As Variant

    '要素毎に対【例】富川→富山、神田川→神奈川、チーバ→千葉、君→県
    varSearch = Array("富川", "神田川", "チーバ", "君")  '検索文字列
    varAfRepl = Array("富山", "神奈川", "千葉", "県")    '置換文字列
    
    Call ReplacementMain(ActiveSheet, varSearch, varAfRepl)
End Sub

Sub Sample_Replace_2() 'アクティブブックの全シート対象 Dim varSearch As Variant, varAfRepl As Variant '要素毎に対 varSearch = Array("富川", "神田川", "チーバ", "君") '検索文字列 varAfRepl = Array("富山", "神奈川", "千葉", "県") '置換文字列 Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets Call ReplacementMain(WS, varSearch, varAfRepl) Next End Sub
Private Sub ReplacementMain(Sh As Worksheet, varSC, varAR) '置換メイン処理 Dim i As Long For i = LBound(varSC) To UBound(varSC) Sh.Cells.Replace What:=varSC(i), Replacement:=varAR(i), LookAt:=xlPart Next End Sub

「検索文字列」
 シート内から検索する文字列です。

「置換文字列」
 検索した文字列を置き換える文字列です。

検索文字列と置換文字列は要素が対になっています。
要素が対であれば、要素の増減が可能です。

ページトップへ戻る

Excel 汎用コード

Word 汎用コード

Copyright(C) 2009- 坂江 保 All Rights Reserved.