【ExcelVBA】ブック全体で特定文字(複数可)を削除・置換するマクロ

Excel/VBA

2021.02.25

標準の[検索と置換]だと1ワードずつしか出来ず面倒なのでマクロで一括置換したい。そんな時に役立つ関数を作って見た。

サンプルデータ
BulkReplace

サンプルデータ

例えばこんな顧客情報があったとする。※内容はこちらで作ったダミーデータです。超絶便利。

先方では何かしらの判別の為記号を付けて運用しているが、そのままのデータだとVLOOKで当たらなかったり、システムに取り込めなかったり等色々と不都合が起きてしまう。
(※弊社実話)

今回はそれらを全シート一括でNULLに置換したい時の為のマクロです。

BulkReplace

以下コピペでそのまま利用可能。

Sub BulkReplace()

    Dim nSheetCnt    As Integer
    Dim nMOJICnt     As Integer
    Dim objSheet     As Excel.Worksheet
    Dim strMOJI(4)   As String    
    

　　' 置換したい記号を配列で持つ
    strMOJI(0) = "★"
    strMOJI(1) = "△"
    strMOJI(2) = "◇"
    strMOJI(3) = "●"
    strMOJI(4) = "◆"
    
    ' Sheet数分ループ
    For nSheetCnt = 1 To ActiveWorkbook.Sheets.Count
        Set objSheet = ActiveWorkbook.Sheets(nSheetCnt)
        
        ' 設定された文字分ループ
        For nMOJICnt = 0 To UBound(strMOJI)
        
          If objSheet.Name = strMOJI(nMOJICnt) Then
              objSheet.Name = ""
          End If

          objSheet.Cells.Replace What:=strMOJI(nMOJICnt), Replacement:="", LookAt:= _
          xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
          
        Next

    Next

    ' 完了メッセージ。お好みで
    Call MsgBox("完了しました")
    
End Sub