特定のキーワードに一致したら、そのキーワードのある行と、そのキーワードから上に2行を含め、合計3行をSheet2に移動させたい。


今、セルE13に「AAAあいうえおBBB」と入力されております。
また、セルE71には「CCCあいうえおDDD」と入力されております。

この状態におきまして。
E列にもし「あいうえお」とある文字列が含まれていた場合、その文字列を含む行と、その行のちょうど真上の2行、合わせて3行を、コピーか切り取りして、Sheet2にどんどん移動させていきたいのです。

そのような関数やマクロ等ありましたら、お教えいただけないでしょうか。
サンプルファイルはこちら http://xfs.jp/sFV2I7 に置きました。
よろしくお願い致します。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2014/11/22 20:04:00
  • 終了:2014/11/29 20:05:04
id:moon-fondu

すみません、Excelの質問であることを記載し忘れておりました。
よろしくお願い致します。

【11/24 追記】
Sheet2と質問文には書きましたが、別シートでなくても構いません。Sheet1の10000行より下など、同シート上の移動やコピーでも問題ないです。特定のキーワードを含むデータと、そのキーワードを含めた3行を移動させ、1箇所にまとめたいのです。お手数ですがどなたか方法等ご存知でしたらお教えいただければ幸いです。

回答(0件)

回答はまだありません

  • id:Yoshiya
    Option Explicit

    Sub main()

    Dim LastRow As Long
    Dim CopyRow As Long
    Dim lp As Long

    Worksheets(2).Cells.Clear
    LastRow = Me.Range("E" & Rows.Count).End(xlUp).Row
    CopyRow = 1

    For lp = 3 To LastRow
    If InStr(Range("E" & lp), "あいうえお") > 0 Then
    Me.Range(lp - 2 & ":" & lp).Copy
    Worksheets(2).Range(CopyRow & ":" & CopyRow + 2).PasteSpecial
    CopyRow = CopyRow + 3
    End If
    Next lp

    End Sub

    保存場所→http://firestorage.jp/download/26e13ee2b3f281f36c4932697f2f3b054cca5f01
  • id:moon-fondu
    Yoshiyaさんありがとうございます!Sheet2に移動しました!
    ベストアンサーです!!

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません