エクセル2010を使っています。
画像の様に、【Sheet3】のA列~CQ列に 空白・エラー・数値・文字 の入った表があります。
そのL列には、画像の様な形で様々な地域の名前が入っています。
やりたいのは、L列に 検索対象文字が複数、例えば 福岡 か 大阪 が入っていたら、その表ごと抽出し、【Sheet1】の上から順に枠線ごと貼り付けて行きたいと思います。
この時、両方一致ではなく、検索対象の文字列が一つでも含まれていたら抜き出したいと思います。
その時に 【Sheet3】から抽出した部分は削除し、上に詰めて行きたいと思います。
ちなみに検索対象が、福岡・大阪・名古屋等、増える場合もありますので、増えたとき対応が出来る形が理想です。
ちなみにL列の文字と文字の間は ・ だったり / だったりします。
詳しい方、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
こんばんは!
>検索対象文字が複数、例えば 福岡 か 大阪 が入っていたら・・・
とは必ず8行の中すべてに「福岡」か「大阪」が入っていたら!というコトでしょうか?
すなわち1行でも参照文字がない場合、その8行の範囲は無視する!という解釈での一例です。
標準モジュールです。
Sub Sample1()
Dim i As Long, k As Long, myCnt As Long, myMax As Long, wS As Worksheet, myAry
Set wS = Worksheets("Sheet1")
myAry = Array("福岡", "大阪") '←ココに増えたデータを追加する★
With Worksheets("Sheet3")
For i = 1 To .Cells(Rows.Count, "L").End(xlUp).Row Step 8
myMax = 0
For k = 0 To UBound(myAry)
myMax = WorksheetFunction.Max(myMax, WorksheetFunction.CountIf(.Cells(i, "L").Resize(8), "*" & myAry(k) & "*"))
Next k
If myMax = 8 Then
Range(.Cells(i, "A"), .Cells(i, "CQ")).Resize(8).Copy wS.Cells(Rows.Count, "A").End(xlUp).Offset(1)
End If
Next i
If WorksheetFunction.CountA(wS.Rows(1)) = 0 Then
wS.Rows(1).Delete
End If
End With
End Sub
こんなんではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- その他(Microsoft Office) Outlookメール 連絡先の検索について 〈 ご説明 〉 Windows PC の Outlook 1 2022/09/23 14:43
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- Excel(エクセル) エクセルで重複データから重複を削除して指定の列に抽出したい 11 2022/05/11 11:26
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
関西弁はなぜ人を不快にさせる...
-
日本へ架ける国際電話のcountry...
-
キャバ嬢です。 お客様が好きに...
-
くら寿司WiFiパスワード分から...
-
関西弁で言う「ええしの子」の...
-
大阪人ってどうして威圧的なん...
-
話してる時に『〇〇〇〇じゃな...
-
「無理しないでね」って意味だ...
-
電話番号の最初の3桁や4桁って...
-
風俗の大阪のアポロビルみたい...
-
友達(東京人)が大阪が合わな...
-
複数列の平均を出したい
-
CSVで1列目を空白にする方法は?
-
関西の方に質問です。若者でも...
-
大阪人ですが、大阪人が嫌いで...
-
呼び出しの「元」と「先」って...
-
大阪で高校生でも入れるような...
-
大阪に合う人、馴染む人
-
大阪に合わない
-
「○○さんの家」という意味で「...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
関西弁はなぜ人を不快にさせる...
-
くら寿司WiFiパスワード分から...
-
日本へ架ける国際電話のcountry...
-
キャバ嬢です。 お客様が好きに...
-
大阪に合わない
-
大阪人ってどうして威圧的なん...
-
「無理しないでね」って意味だ...
-
JRで神戸駅から大阪まで 快...
-
大阪人ですが、大阪人が嫌いで...
-
贈呈式の司会進行の原稿につて
-
友達(東京人)が大阪が合わな...
-
大阪が嫌いになりだした
-
「○○さんの家」という意味で「...
-
複数列の平均を出したい
-
関西のノリがほんとにしんどいです
-
電信棒という表現は方言ですか?
-
関西弁で言う「ええしの子」の...
-
電話番号の最初の3桁や4桁って...
-
呼び出しの「元」と「先」って...
-
ストーンクラブを食べられる店...
おすすめ情報