エクセル VBAについて教えてください 添付の 検索値シート1 L2 検索範囲シート2の3行目として ヒットした列のデータの最下段の下(シート2 D10)に 赤枠部分のセルをコピペしたいのですが

画像

Excel60閲覧

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

ありがとうございます 助かります

お礼日時:6/30 9:13

その他の回答(1件)

1

Sub test() Dim src As String, rng As Range, r As Range With Sheets("Sheet1") src = .Cells(2, "L") Set rng = .Range("L4:M8") End With Sheets("Sheet2").Select Set r = Rows(3).Find(src, lookat:=xlWhole) If r Is Nothing Then MsgBox "「" & src & "」が見つかりません" Exit Sub Else rng.Copy r.Offset(7) End If End Sub

1人がナイス!しています