VBA シート内容の置換

Question

前提・実現したいこと

エクセルファイルのSheet1 とSheet2 はほとんど類似したシートで、一部がのみが違います。

n行目Sheet1E列と、sheet2のE列全体の内容を比較してsheet2のm行目に一致するものがあればsheet1のそのn行目全体をsheet2の一致したm行目にの内容に置換する

これをn+1していって繰り返し行う。

というものをくみたいのですが。。。

ループ処理、比較処理もむちゃくちゃで出来ず。

どなたかご教授願えませんでしょうか。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    
    Dim ee As Range
    Set ee = ws2.Range("E:E")
    
    Dim lastRow
    lastRow = ws1.Range("E" & ws1.Rows.Count).End(xlUp).Row
    
    Dim n, e, m
    For n = 1 To lastRow
        e = ws1.Range("E" & n)
        If WorksheetFunction.CountIf(ee, e) > 0 Then
            m = WorksheetFunction.Match(e, ee, False)
            ws1.Rows(n).Value = ws2.Rows(m).Value
        End If
    Next n
End Sub

Comments

[BradleyJames]

ありがとうございます。
解決+非常に勉強になりました。