VBA シート比較し一致データを別シート転記(動画あり)

エクセルマクロで、シート比較し一致するデータを別シート転記するVBAコードをご紹介します。

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

シート比較し一致データを別シート転記

以下のマクロを実行すると、2シート間に同じ文字があれば別のシートへ抽出します。

Sub シートを比較して同じ値を別シート転記()

Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
Dim Matome As Worksheet
Dim i As Long
Dim j As Long
Dim MyRow As Long
    
     Set Sht1 = Sheets("Sheet1")
     Set Sht2 = Sheets("Sheet2")
     Set Matome = Sheets("まとめ")
     
     '「まとめ」シートの転記開始行
     MyRow = 1
     
     '「Sht1」シート　2～最終行までループ
     For i = 2 To Sht1.Cells(Rows.Count, 1).End(xlUp).Row
     
        '「Sht2」シート　2～最終行までループ
        For j = 2 To Sht2.Cells(Rows.Count, 1).End(xlUp).Row
     
            '「Sht1」シートと「Sht2」シートで同じ値があったら
            If Sht1.Cells(i, 1) = Sht2.Cells(j, 1) Then
            
                '「まとめ」シートに値を転記
                Matome.Cells(MyRow, 1) = Sht1.Cells(i, 1)
                MyRow = MyRow + 1
            End If
        Next j
     Next i

End Sub

マクロ実行前

「Sheet1」と「Sheet2」を比較します。

マクロ実行結果がわかりやすいように、

あらかじめシート間で同じデータに色付けしてあります。

マクロ実行後

「Sheet1」と「Sheet2」を比較して同じ値があったら、

「まとめ」シートに転記します。

この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】別シート転記を自動処理する方法まとめ
 

【エクセルマクロ】別シート転記(抽出)を自動化する：超便利20選

...

kirinote.com

2023.02.04