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

excel-別シートのリストから置換-アイキャッチ ExcelVBA

エクセルマクロで、別シートのリストを参照して置換する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」の文字を置換します。


 

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます^^

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

【エクセルマクロ】文字列を置換してセルに色付け:自動化
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説