excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい

excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたいです。
VBA初心者です。教えて頂けますと嬉しいです。

sheet1のA列セルの値 = sheet2のA列セルの値
だった場合
sheet2の該当行をsheet1の該当行に上書きコピペ
したいです。

sheet1に元データ表があって、sheet2に検索抽出表示した後にsheet2のデータを書き換えた際にsheet1の元データに反映したい感じです。
A列にはデータの番号が連番で割り振られています。

説明がわかりづらかったらすみません。
何卒宜しくお願い致します。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2021/10/15 20:11

こんばんは

よく理解できていませんけれど、勝手に解釈しました。

それぞれのシート内でA列の値には重複がなく、複数ヒットすることはないものと仮定しています。
（＝再検索する必要はないものと解釈）
セル範囲等は不明なので、適当です。

Sub Sample_Q12625547()
Dim sh As Worksheet
Dim a As Range, c As Range, f As Range

Set sh = Worksheets("Sheet2")
Set a = Worksheets("Sheet1").Columns(1)

For Each c In Range(sh.Cells(1, 1), sh.Cells(Rows.Count, 1).End(xlUp))

If c.Value <> "" Then
Set f = a.Find(What:=c.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not f Is Nothing Then f.EntireRow.Value = c.EntireRow.Value
End If

Next c
End Sub

この回答へのお礼

ありがとうございます。
思う感じで動きました！
返事遅くなり申し訳御座いません。
分かりづらい説明の中解決に導いて下さって感謝です。

お礼日時：2021/10/18 09:53

No.1 回答者： tatsumaru77 回答日時： 2021/10/15 19:46

sheet1とsheet2のレイアウトを画像で提示していただけると、

回答がつきやすいかと。

この回答へのお礼

ありがとうございます。
そうですね。確かに文より画像で示せば良かったと思っております。
今回は解決を見ましたので、次回よりそうする方向で考えます！
ありがとうございます！

お礼日時：2021/10/18 09:51