特定のキーワード群を含むものにフラグをつけたい

Question

スプレッドシート・エクセル得意な方にご相談です！！

特定のキーワードを含むものに、フラグをつけたいのですが
数万件のキーワードがありCount系の関数で行うと計算がおもすぎて動きませんでした。

軽い処理で、下記を実現する方法をご存知でしたら、教えていただけないでしょうか？

▼対象キーワード（フラグをつけたいキーワード）
例）
ホームページ制作 大阪 →都道府県名、市区町村フラグ
ホームページ制作 名古屋 →市区町村フラグ
・
・
・
約5万KW

▼特定のキーワード
・都道府県名
・市区町村名

Comments

[Zuishin]

少なくとも 5 行あるサンプル入力データと処理後の出力データを作って掲載してください。

また、スナック竜宮城は宮城が含まれているから都道府県名フラグが立ちますか？
それと全国の市区町村のデータはあるのですか？

[kakizaking]

https://docs.google.com/spreadsheets/d/1PlDfV7C5lYMjsEuxiCcs-dm0c0guzZ3IqqSImaSJk9w/edit?usp=sharing

・スナック竜宮城は宮城は、宮城が含まれているのでフラグ立つでOKです。
・全国の市区町村のデータも用意可能です。一旦サンプルは、県名と地域名になります。

[Zuishin]

市区町村は非常に大きなデータ(12 万件以上)になるので、どのみち時間はかかると思います。もしかしたら、VBA で取り扱うよりも CSV を C# などで扱う方が速くなるかもしれませんが、VBA でなければいけませんか？

[Zuishin]

間違えました。2000 件弱でしたね。試しにやってみます。

[papinianus]

A列が5万あるのですよね？あとB列はカウンタではなくフラグでよいのですか？

Answer 1

Google Spread Sheet では時間制限があるので Excel です。
このマクロを動かす前に範囲名を三つつけてください。
社名が書いてある範囲(この例では A2 から A10)に「社名」
都道府県が書いてある範囲(この例では D2 から D104)に「都道府県」
市区町村が書いてある範囲に「市区町村」
そしてマクロを動かすと、社名の右二つのセルにそれぞれフラグが入ります。

Function PlaceNameExists(value, placeNames) As Boolean
    For Each placeName In placeNames
        If InStr(value, placeName) Then
            PlaceNameExists = True
            Exit Function
        End If
    Next
End Function

Sub Macro1()
    prefectures = WorksheetFunction.Transpose(ActiveSheet.Range("都道府県"))
    Cities = WorksheetFunction.Transpose(ActiveSheet.Range("市区町村"))
    For Each c In ActiveSheet.Range("社名").Cells
        If PlaceNameExists(c.value, prefectures) Then
            Cells(c.Row, c.Column + 1).value = 1
        End If
        If PlaceNameExists(c.value, Cities) Then
            Cells(c.Row, c.Column + 2).value = 1
        End If
    Next
End Sub

Comments

[Zuishin]

市区町村 1896 件埋めて実行しましたが、一瞬で終了しました。社名が増えても実用的な速度で動くと思います。