エクセルについて教えてください。

その５０００データがどのようになっているのかはわかりませんが、

とりあえず上記の３つのテキストファイルを作るマクロです。

最初のところを作成するフォルダのアドレスに変えてください。

既にファイルがある場合はメッセージボックスを出すようにしていますが、

５０００ファイルの場合はまとめてログに出したりしたほうがいいです。

Sub Macro()
    Const dirAddress As String = "C:\Users\hogehoge\Desktop\test"
    Dim FSO As Object
    Dim myTxt As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")

    Dim r As Range
    
    For Each r In ActiveSheet.Range("A1,B1,B3")
        If FSO.fileExists(dirAddress & "\" & r.Value & ".txt") Then
            MsgBox r.Value & ".txt" & "は既に存在します"
        Else
            Set myTxt = FSO.CreateTextFile(dirAddress & "\" & r.Value & ".txt", False)
        End If
    Next
    
    Set FSO = Nothing
End Sub

データはシート上に散在していると思われましたので、対象をアクティブシート

のすべてのデータとして処理する例です。

ファイルは EXCEL ファイルと同じパスに作成するので、ファイルを適切な場所

に保存して実行してください。

Sub MakeTxtFile()
    Const dMode = False '//★ True にすると同じファイル名は（番号）をつけて作成

    Dim objFso As Object
    Set objFso = CreateObject("Scripting.FileSystemObject")
    
    Dim filePath As String
    Dim dNum As Long
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.Value <> "" Then
            filePath = ThisWorkbook.Path & "\" & r.Value & ".txt"
            If objFso.FileExists(filePath) = False Then
                With objFso.CreateTextFile(filePath)
                    .Close
                End With
            Else
                If dMode = True Then
                    filePath = ThisWorkbook.Path & "\" & r.Value & "(1).txt"
                    dNum = 2
                    Do While objFso.FileExists(filePath) = True
                        filePath = ThisWorkbook.Path & "\" & r.Value & "(" & dNum & ").txt"
                        dNum = dNum + 1
                    Loop
                    With objFso.CreateTextFile(filePath)
                        .Close
                    End With
                End If
            End If
        End If
    Next
End Sub

重複の取り扱いをどうするか提示が無かったので、適当にオプションを用意しました。

最初の行を

    Const dMode = True '//★ True にすると同じファイル名を（番号）をつ

とするとおなじデータ、たとえば100が3つあった場合、

100.txt, 100(1).txt,100(2).txt

というように番号をつけて作成します。

提示のコードは重なった場合は作成しないようになっています。

（2回実行するとファイルが倍になりますのでご注意下さい。）

単純に重複を把握するのであれば、先頭に作業用に１行挿入してA1にでも

=COUNTA(2:65536)

で求まりますので、作成されたファイル数と比較すればわかるとは思います。

先の回答で目的を既に達成されていたら、こちらはポイント不要です。