没问题，这需求用VBA完全能搞定，我给你写好代码，再一步步说怎么操作：

操作步骤： #

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
2. 在编辑器左侧的工程资源管理器里，右键点击你的工作簿，选择「插入」→「模块」
3. 把下面的代码粘贴到新建的模块窗口里
4. 修改代码里的savePath变量，改成你想保存TXT文件的文件夹路径（比如C:\Users\YourName\Documents\TXTOutput\）
5. 按下F5运行代码，或者回到Excel里按Alt + F8选择这个宏执行

VBA代码： #

Sub GenerateTxtFiles()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim savePath As String
    Dim fileName As String
    Dim fileContent As String
    
    ' 设置保存TXT文件的文件夹路径，记得末尾加反斜杠
    savePath = "C:\Your\Target\Folder\Path\"
    
    ' 检查文件夹是否存在，不存在则创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 指定要处理的工作表（这里假设是Sheet1，根据你的实际情况修改）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头）
    For i = 2 To lastRow
        ' 获取A列的姓名作为文件名
        fileName = ws.Cells(i, "A").Value
        ' 获取B列的文本内容
        fileContent = ws.Cells(i, "B").Value
        
        ' 过滤文件名里的非法字符（Windows系统不允许的文件名字符）
        fileName = Replace(fileName, "\", "")
        fileName = Replace(fileName, "/", "")
        fileName = Replace(fileName, ":", "")
        fileName = Replace(fileName, "*", "")
        fileName = Replace(fileName, "?", "")
        fileName = Replace(fileName, """", "")
        fileName = Replace(fileName, "<", "")
        fileName = Replace(fileName, ">", "")
        fileName = Replace(fileName, "|", "")
        
        ' 如果姓名为空则跳过
        If fileName <> "" Then
            ' 打开文件并写入内容
            Open savePath & fileName & ".txt" For Output As #1
            Print #1, fileContent
            Close #1
        End If
    Next i
    
    MsgBox "TXT文件已全部生成完成！", vbInformation
End Sub

注意事项： #

• 如果你Excel里的表头不是第1行，记得把循环的起始行i=2改成对应的行号
• 代码里已经自动处理了文件名的非法字符，避免因为姓名里有特殊符号导致生成失败
• 保存路径一定要正确，并且确保你有该文件夹的写入权限

内容的提问来源于stack exchange，提问作者Jose