シート間で同じ値があったらコピペ

シート1のN列とシート2のN列に同じ値があった場合
シート2の同じ値のあるセルから紐づけられた範囲（画像の場合はセルB10からM12）を
同じくシート1の紐づけられた範囲（画像の場合はセルB7からM9）にコピーしたいです。

セルを結合している箇所があります。
シート1とシート2は同じフォーマットです。
画像のようにシート2にはテキストボックスが挿入してある場合もあり
それもそのままシート1に貼り付けたいです。

お詳しい方、宜しくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/05/08 11:04

こんにちは

こんな感じかな・・・

Dim c As Range, r As Range
With Sheets("Sheet2")
For Each c In .Range("N7", .Cells(Rows.Count, "N").End(xlUp))
If c <> "" Then Set r = Sheets("Sheet1").Range("N7", Cells(Rows.Count, "N")).Find(c)
If Not r Is Nothing Then
c.Copy r
c.Offset(, -12).Resize(3, 12).Copy r.Offset(, -12)
Set r = Nothing
End If
Next
End With

この回答へのお礼

ありがとうございました！解決できました！

お礼日時：2022/05/09 20:04