斉藤といいます。

すいませんが、

ご指導おねがいいたします。

Sheet3の2列目(Ｂ列)に氏名があります

その氏名の行から3つ目のＡ列からＦ列目をコピーして

同じSheet3のＦ１の貼り付けたいのですが。

＞Ａ列からＦ列目をコピーは、
　行数がかわります。

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　Ｉ　　Ｊ　　Ｋ
１　　　　　　　　　　　　　　　　　６月　中村　２５　１５　３０　３２（貼り付け場所）
２　　　　　　　　　　　　　　　　　７月　高橋　１５　０７　１１　１５（貼り付け場所）
３　　　　　　　　　　　　　　　　　８月　斉藤　０９　１３　１６　２２（貼り付け場所）
。
。

　　　　　氏名
１つ目の行
２つ目の行
　　６月　中村　２５　１５　３０　３２（コピー元）
　　７月　高橋　１５　０７　１１　１５（コピー元）
　　８月　斉藤　０９　１３　１６　２２（コピー元）
　
　　　
Sheets("Sheet3").Select
    Range("A:F").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("F1").Select
    ActiveSheet.Paste

調べたら

コピーだけでしたら

上の感じみたいなんですが

2列目(Ｂ列)の氏名を見つけ

Application.Match　か　Findでできそうですが

コピー　　(Ａ列からＦ列目まで)
貼り付け　(Ｆ１から)


組み立て方法が
分かりません、

ご指導お願い頂けませんか。
お願いいたします。
ＯＳ　Windows7
エクセル　２０１０


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

こんな感じかな？

Sub CoPa()
    Dim posOfName
    
    With Sheets("Sheet3")
        posOfName = Application.Match("氏名", .Columns("B"), 0)
        
        If IsNumeric(posOfName) Then
            .Range(.Cells(posOfName + 3, "A"), .Cells(.Rows.Count, "B").End(xlUp).Offset(, 4)).Copy .Range("F1")
        End If
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

半平太さん、ご指導ありがとうございます。
うまく取得しました。

すいませんが。
もう一項目追加できないでしょうか。

2列目(Ｂ列)の氏名の行からＡＢＣＤＥ列の５列を

削除又は.Clearしたんですが。

元のコピー先を削除又は.Clear

わがまま言ってすいません。
よろしくおねがいいたします、

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　Ｉ　　Ｊ　　Ｋ
１　　　　　　　　　　　　　　　　　６月　中村　２５　１５　３０　３２（貼り付け場所）
２　　　　　　　　　　　　　　　　　７月　高橋　１５　０７　１１　１５（貼り付け場所）
３　　　　　　　　　　　　　　　　　８月　斉藤　０９　１３　１６　２２（貼り付け場所）
。
。

　　　　　氏名
１つ目の行
２つ目の行
　　６月　中村　２５　１５　３０　３２（コピー元）
　　７月　高橋　１５　０７　１１　１５（コピー元）
　　８月　斉藤　０９　１３　１６　２２（コピー元）

　　　　　　　　　　　　｜
　　　　　　　　　　　　｜
　　　　　　　　　　　　｜【氏名の行からＡからＦ削除又は.Clear】
　　　　　　　　　　　　↓

　　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ
　
　　　　　氏名　　　　　　　　　　　　　　　　　　【ＡからＦ削除又は.Clear】
１つ目の行　　　　　　　　　　　　　　　　　　　　【ＡからＦ削除又は.Clear】
２つ目の行　　　　　　　　　　　　　　　　　　　　【ＡからＦ削除又は.Clear】
　　６月　中村　２５　１５　３０　３２（コピー元）【ＡからＦ削除又は.Clear】
　　７月　高橋　１５　０７　１１　１５（コピー元）【ＡからＦ削除又は.Clear】
　　８月　斉藤　０９　１３　１６　２２（コピー元）【ＡからＦ削除又は.Clear】　

Sub CoPa()
    Dim posOfName, r As Range
    
    With Sheets("Sheet3")
        posOfName = Application.Match("氏名", .Columns("B"), 0)
        
        If IsNumeric(posOfName) Then
            Set r = .Range(.Cells(posOfName + 3, "A"), .Cells(.Rows.Count, "B").End(xlUp).Offset(, 4))
            r.Copy .Range("F1")
            r.ClearContents
        End If
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他