特定のキーワードに一致したら、そのキーワードのある行と、そのキーワードから上に2行を含め、合計3行をSheet2に移動させたい。
今、セルE13に「AAAあいうえおBBB」と入力されております。
また、セルE71には「CCCあいうえおDDD」と入力されております。
この状態におきまして。
E列にもし「あいうえお」とある文字列が含まれていた場合、その文字列を含む行と、その行のちょうど真上の2行、合わせて3行を、 コピーか切り取りして、Sheet2にどんどん移動させていきたいのです。
そのような関数やマクロ等ありましたら、お教えいただけないでしょうか。
サンプルファイルはこちら http://xfs.jp/sFV2I7 に置きました。
よろしくお願い致します。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
moon-fondu
すみません、Excelの質問であることを記載し忘れておりました。
よろしくお願い致します。
【11/24 追記】
Sheet2 と質問文には書きましたが、別シートでなくても構いません。Sheet1の10000行より下など、同シート上の移動やコピーでも問題ないです。特定のキーワードを含むデータと、そのキーワードを含めた3行を移動させ、1箇所にまとめたいのです。お手数ですがどなたか方法等ご存知でしたらお教えいただければ幸いです。
この質問へのコメント
質問の情報
- 登録日時
- 2014-11-22 20:04:00
- 終了日時
- 2014-11-29 20:05:04
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…
匿名質問者
2
-
オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…
Ryoya391
-
０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者1
-
友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者3
-
僕の親は苛立っています。 「俺はネットの天才なのに、なんで通報されたり、アカウント凍結されたりするん…匿名質問者3
4
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
ベストアンサーです！！