如何使用VBA仅替换文本文件中含指定字符串行内的特定子串

文本文件处理版本（对应你伪代码的文件处理逻辑） #

可直接使用，仅需修改代码里的文件路径参数即可运行：

Sub 按条件替换文本行内容()
    Dim 原文件路径 As String, 输出文件路径 As String
    Dim 文件号 As Integer
    Dim 每行内容 As String
    Dim 输出内容 As String
    
    ' 替换为你自己的实际文件路径
    原文件路径 = "C:\test\源文件.txt"
    输出文件路径 = "C:\test\处理后文件.txt"
    
    ' 逐行读取原文件内容
    文件号 = FreeFile()
    Open 原文件路径 For Input As #文件号
        Do While Not EOF(文件号)
            Line Input #文件号, 每行内容
            ' 判断当前行是否包含指定的蓝色高亮匹配字符串
            If InStr(1, 每行内容, "39202|A|92", vbTextCompare) > 0 Then
                ' 仅在匹配行执行替换，最后一个参数1表示仅替换第一个匹配项
                每行内容 = Replace(每行内容, "3Gc%C<a>", "text1", , 1)
                每行内容 = Replace(每行内容, "3Gc%C<b>", "text2", , 1)
            End If
            输出内容 = 输出内容 & 每行内容 & vbCrLf
        Loop
    Close #文件号
    
    ' 写入处理后的内容到新文件
    文件号 = FreeFile()
    Open 输出文件路径 For Output As #文件号
        Print #文件号, Left(输出内容, Len(输出内容) - 2) ' 移除末尾多余的换行符
    Close #文件号
    
    MsgBox "处理完成"
End Sub

Excel工作表行处理版本（如果内容存放在Excel表中可使用） #

Sub 处理Excel工作表行()
    Dim ws As Worksheet
    Dim i As Long, 最后行号 As Long
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名") ' 替换为实际工作表名称
    最后行号 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设内容存放在A列，可自行修改列号
    
    For i = 1 To 最后行号
        If InStr(1, ws.Cells(i, "A").Value, "39202|A|92", vbTextCompare) > 0 Then
            ws.Cells(i, "A").Value = Replace(ws.Cells(i, "A").Value, "3Gc%C<a>", "text1", , 1)
            ws.Cells(i, "A").Value = Replace(ws.Cells(i, "A").Value, "3Gc%C<b>", "text2", , 1)
        End If
    Next i
    
    MsgBox "工作表处理完成"
End Sub

注意事项 #

• 代码默认不区分大小写匹配，如需区分大小写可将vbTextCompare修改为vbBinaryCompare
• 你原伪代码中的Exit For会导致仅处理第一行符合条件的内容就终止，上述实现已移除该逻辑，会自动处理所有符合条件的行
• 建议处理前备份源文件，避免操作失误丢失数据

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