EXCEL VBA Replace メソッド　複数の文字列の置換（セル範囲・一括変換・置換リスト）

 

 

EXCEL VBA Replace メソッド　複数の文字列の置換（セル範囲・一括変換・置換リスト）

 

 

 

 

 

 

 

 

Replaceメゾットを利用して、文字列を置換します。（複数置換・一括置換）

 

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace01() '複数文字列を置換します。

    With Columns("A")
        .Replace what:="EXCEL", replacement:="エクセル"
        .Replace what:="Word", replacement:="ワード"
        .Replace what:="OutLook", replacement:="アウトルック"
    End With

End Sub 
'

 

 

 

 

 

 

Replaceメゾットを利用して、指定した文字列を除いて削除（置換）します。（一括置換）

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace02A() '指定した文字列を削除します。

    With Columns("A")
        .Replace what:="東京都", replacement:="", LookAt:=xlPart '東京都を削除：部分一致（ LookAt:=xlPart）
    End With
End Sub
'

 

 

 

 

 

Replaceメゾットを利用して、文字列内の空白文字（全角・半角）を削除（置換）します。（一括置換）

 

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace02B()  '空白文字（全角・半角）を削除します。

    With Columns("B:C")
        .Replace what:=" ", replacement:="", LookAt:=xlPart '空白半角削除：部分一致（ LookAt:=xlPart）
        .Replace what:="　", replacement:=""  '空白全角削除
    End With

End Sub
'

 

 

 

 

 

Replaceメゾットを利用して、置換リストより指定（コード）に一致した文字列へ置換します。

 

 

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace03() '置換リストを作成して指定コードに一致した文字列に置換します。

    Dim I, L, lRow, mRow As Long
    Dim Moji As String

    lRow = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行を取得
    mRow = Cells(Rows.Count, "E").End(xlUp).Row 'E列の最終行を取得

    For I = 2 To lRow  'A列の最終行まで繰り返す。
    
        For L = 2 To mRow  'E列の最終行まで繰り返す（勘定科目コード表）
            With Columns("A")  'A列を指定（置換対象）
                .Replace what:=Cells(L, "E"), replacement:=Cells(L, "F") '勘定科目コード⇒勘定科目へ置換
            End With
        Next L
    Next I
End Sub
’

 

 

 

 

 

 

Replaceメゾットを利用して、文字列内の改行を一括削除します。

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace04() '文字列内の改行を一括削除します。

    With Columns("C")
        .Replace what:=vbLf, replacement:="", LookAt:=xlPart  '改行削除：部分一致（ LookAt:=xlPart）
    End With

End Sub
’

 

 

 

 

 

 

Replaceメゾットを利用して、別シートに置換リストを作成して、置換リストに該当するコードを元に複数データの置換処理を行います。

 

 

 

 

'
''******** AKIRA55.COM ******* https://akira55.com/replace_m/
'
Sub Replace05() '別シートに置換リストを作成して、コードと一致した文字列を複数データに対して置換処理を行います。


    Dim ws01, ws02 As Worksheet
    Dim L, M, N, lCol, mRow As Long
    
    Set ws01 = Worksheets("社員情報")
    Set ws02 = Worksheets("コード一覧")

    lCol = ws01.Cells(1, Columns.Count).End(xlToLeft).Column 'シート「社員情報」1行目の最終列を取得
    
    M = 1 'シート「コード一覧」1列目を指定（A列：スタート列）

    For N = 1 To lCol  'lRow  'シート「社員情報」の最終列まで繰り返す。（A列⇒B列⇒C列⇒D列）
        
        mRow = ws02.Cells(Rows.Count, M).End(xlUp).Row     'シート「コード一覧」列ごとの最終行を取得（A列⇒C列⇒E列⇒G列と順番に取得）
        
        For L = 2 To mRow  '対象の置換列の最終行まで繰り返す。
            With ws01.Columns(N)  'シート「社員情報」置換列を（N）指定
                .Replace what:=ws02.Cells(L, M), replacement:=ws02.Cells(L, M + 1) '指定列対して文字列の置換を行います。
            End With
        Next L
    
    M = M + 2 'シート「コード一覧」＋２列を指定（⇒C列⇒E列⇒G列）

    Next N

End Sub
'