検索した文字のセルを基準に範囲指定コピーのマクロ

質問

表題のマクロを教えてください。

検索範囲　シート１のＡ１：Ｋ１００
検索する文字　”　成績　”
コピーする範囲　見つかったセルの下の行から５行～１０列まで全部。
貼り付ける場所　シート２のＢ１

宜しくお願いします。

回答No.1

n-jun · ベストアンサー

Sub Test()
Dim r As Range

With Worksheets("Sheet1")
Set r = .Range("A1:K100").Find(what:="成績", After:=.Range("K100"), _
　　　　　　　　　　　　　　LookIn:=xlValues, LookAt:=xlWhole)
End With

If r Is Nothing Then
MsgBox "見つかりませんでしたので終わります。"
Exit Sub
End If

r.Offset(1).Resize(5, 10).Copy Worksheets("Sheet2").Range("B1")
Set r = Nothing
End Sub
こうゆう事？

お礼

いつもありがとうございます。
思ったとおりに出来ました。
助かりました。