検索、データ貼り付け

質問

シート1の　G列に　氏名が有り、H列は　金額入力列です。
シート2の　B列に　氏名、　E列に　金額が有ります。
シート2の　B列　氏名、　E列　金額セルは共にセル結合されているところが有ります。例えば　B1、B2　がセル結合なら　E1、E2 もセル結合です。
ここで　シート１の氏名でシート２の氏名を検索し、合致したら
シート２の　E列の該当の金額をシート１の該当のH列に貼り付ける記述を教えてください。よろしくお願いします。

回答No.1

imogasi · ベストアンサー

質問者が質問例を（データの有り様を）具体的に書かないので、外れているかもしれない。
例データ
Ｓｈｅｅｔ２
第５と６および、９と１０と１１行が結合されている例。
Ｂ列の氏名はユニークであるとする。
Ｂ列　　　　　　　　　　　　Ｅ列　　行番号
氏名 計数　　１
a1 11　　　２
a2 12　　　３
a3 13　　　４
a4 14　　　５　＜－結合
　　　　６　＜－結合
a6 16　　　７
a7 17　　　８
a8 18　　　９　＜－結合
　　　　１０　＜－結合
　　　　１１　＜－結合
a11 21　　　１２
a12 22　　　１３
a13 23　　　１４
ーー
Ｓｈｅｅｔ１
質問と列を変えた
Ａ列　　　Ｂ列
氏名 計数
a3 13
a5 該当なし
a4 14
a7 17
a10 該当なし
a8 18
Ａ列データに対応する計数をＳｈｅｅｔ２からとってくるという
問題に解釈して
コード
標準モジュール
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d
Set c = sh2.Range("B2:B100").Find(What:=sh1.Cells(i, "A"))
If c Is Nothing Then
sh1.Cells(i, "B") = "該当なし"
Else
sh1.Cells(i, "B") = c.Offset(0, 3)
End If
Next i
End Sub
結合してないセルばかりと何も変わらない結果だがこれで質問内容と違うことがあれば細くのこと。

お礼

本当にありがとうございます。とても助かりました。