Excel 2013 のブック（7シート・計1万行以上）から同じ言葉を検索抽出し、一括表示をするマクロの設定について知りたい。

Question

初めまして

ブック（7シート・計1万行以上）から同じ言葉を検索抽出し、一括表示をするマクロ設定を行いたい。

全くの素人です。よろしくお願いいたします。

**モデレーター注**

タイトルを編集しました。

編集前タイトル : Excelブック検索

Answer 1

>同じ言葉を検索抽出し、

>一括表示をするマクロ設定を行いたい。

同じ言葉というのが、

セル埋まっている文章に含まれる言葉なのか、

単にセルに埋まっている文字列なのかがわかりません。

更に

一括表示するというのが、

どのような表示をイメージすればいいのかわかりません。

言葉と登場数のテーブルなのか

トップ10の言葉なのか

指定した言葉の数なのか、いかがでしょうか。

せめて、

集計対象のサンプル（数行でいいと思います。）と

一括表示するイメージをポストしてほしいのです。

Answer 2

私も松本七生様ご案内のMsdnフォーラムでの回答を見たかったのですが、

未だご質問されてないようですので私なりのマクロを作ってみました。

（お望みのものと違ったらMsdnで質問したらいいと思います）

'-----------------------------------------------------------------------

Option Explicit

Option Base 1

Sub ブック検索マクロ()

    Dim dbook As Workbook

    Dim s As Double

    Dim i As Long, k As Long, last As Long

    Dim kensakuti As String

    Dim c As Range

    Dim firstAddress As String

    Dim d() As String

    kensakuti = InputBox("検索文字は")

    If kensakuti = "" Then Exit Sub

    s = Timer

    Application.ScreenUpdating = False

    Set dbook = Workbooks.Open("D:\データのあるブック.xlsx")

    For i = 1 To dbook.Sheets.Count

        For Each c In Sheets(i).UsedRange

                If c.Value Like "*" & kensakuti & "*" Then

                    k = k + 1

                    ReDim Preserve d(k)

                    d(k) = c.Value

                End If

        Next

    Next

    If k = 0 Then

        MsgBox "検索文字はありませんでした"

        dbook.Close

        Exit Sub

    End If

    last = UBound(d)

    With ThisWorkbook

        .Activate

        .Sheets(1).Columns(1).ClearContents

        .Sheets(1).Range("A1:A" & last).Value = WorksheetFunction.Transpose(d)

    End With

    dbook.Close False

    Application.ScreenUpdating = True

    MsgBox Timer - s

    MsgBox k & " セルありました"

End Sub

'---------------------------------------------------------------------------

Answer 3

​tamatsu さん、こんにちは。

マイクロソフト コミュニティのご利用、ありがとうございます。

Excel 2013 のブックから同じ言葉を検索抽出して、一括表示をするマクロを作成したいのですね。

せっかくこちらに投稿していただいたのですが、ご質問の内容については一般利用向けのマイクロソフト コミュニティでは情報を集めにくいかもしれません。

今回の内容については、マクロについての質問も多く投稿されている Msdn フォーラムに投稿されるとアドバイスが集まりやすいと思います。

◆ Msdn フォーラム - Visual Basic for Application (VBA)

よろしければご活用くださいね。