【エクセルマクロ】シート比較し一致データを別シート転記:動画あり

vba-シート比較し一致データを別シート転記-アイキャッチ ExcelVBA

エクセルマクロで、シート比較し一致するデータを別シート転記する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選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!