テキストファイルを読み込んで、正規表現で絞り込み、Excelに出力するVBAのサンプルコード

Sub ボタン1_Click()

    Dim i As Long
    Dim inputFileName As String
    Dim fileNumber As Long
    Dim fileLine As String
    
    '正規表現オブジェクトの設定
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Pattern = "^.*A.*$"  '正規表現パターン
        .IgnoreCase = False   '大文字と小文字を区別する
        .Global = True        '文字列全体を検索するか(True)
    End With
    
    
    fileNumber = FreeFile
    inputFileName = "C:\temp\test3\input.txt" 'ファイル格納先
    
    Open inputFileName For Input As fileNumber
    i = 2  '2行目から
    Do While Not EOF(fileNumber)
        Line Input #fileNumber, fileLine
        
        If reg.Test(fileLine) Then 'パターン判定
            Cells(i, 1) = fileLine
            i = i + 1
        End If
        
    Loop
    Close #fileNumber

End Sub