【エクセルマクロ】別シートのリスト参照して置換(動画あり)

エクセルマクロで、別シートのリストを参照して置換するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

別シートのリスト参照して置換

以下のExcelVBAを実行すると、別シートの値を参照して置換します。

Sub 他シートを参照してデータを置き換え()

Dim i As Long
Dim Mylist As Variant
Dim Sht1 As Worksheet
Dim Sht2 As Worksheet

    'シートを変数へ格納
    Set Sht1 = Sheets("Sheet1")
    Set Sht2 = Sheets("Sheet2")

    '「Sheet2」のデータを配列格納
    Sht2.Select
    Mylist = Sht2.Range(Cells(2, 1), Cells(5, 2))
    
    Application.ScreenUpdating = False

    '配列ループ
    For i = 1 To UBound(Mylist)

        '置換
        Sht1.Cells.Replace What:=Mylist(i, 1), Replacement:=Mylist(i, 2), ReplaceFormat:=True

    Next i

    Application.ScreenUpdating = True

End Sub

マクロ実行前

「Sheet2」に置換したいリストを入力しておきます。

マクロ実行後

別シート（Sheet2）から参照した値を元に、

「Sheet1」の文字を置換します。

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】文字列を置換してセルに色付け：２選

...

kirinote.com

2022.11.12