（10）文字検索

大量データ（ビッグデータ）から特定の文字が含まれているデータを抽出する。

InStr(kakunin, moji)関数を使って文字が何文字目にあるかを判断する0以外であれば文字があると判断できる。

小文字・大文字また必要により関数を使って希望のデータを抽出する。

抽出は別シートに出力する。

Sub toridasi()
    Dim moji As String
    Dim i As Long
    Dim j As Long
    Dim lastrow As Long
    moji = InputBox("指定文字")
'取り出しシートのクリア
    Worksheets("取り出し").Cells.Clear
    lastrow = Worksheets("元").Cells(Rows.Count, 1).End(xlUp).Row
    j = 1
    Dim kakunin As String
    For i = 1 To lastrow
        kakunin = Worksheets("元").Cells(i, 1)
        If InStr(kakunin, moji) <> 0 Then
            Worksheets("取り出し").Cells(j, 1) = Worksheets("元").Cells(i, 1)
            Worksheets("取り出し").Cells(j, 2) = Mid(Worksheets("元").Cells(i, 1), 2, 4)
            j = j + 1
        End If
    Next
End Sub