如何在匹配单元格后搜索后续行特定字符串并返回关联值（VBA）

你的原代码存在两个核心问题：

• 语法错误：Range("G" & x) = Range("B" & Line). 末尾多了无效的点符号，且完全缺失后续行搜索的逻辑
• 未实现找到目标行后，向下遍历查找特定字符串的流程

以下是修正后的代码，假设你要搜索的特定字符串为"TargetString"，后续行取B列的值，你可根据实际需求调整：

Sub test()
    Dim x As Integer, Line As Long, nextLine As Long
    Dim targetStr As String
    Dim found As Boolean
    
    x = 1
    targetStr = "TargetString" ' 替换为你实际要找的特定字符串
    
    ' 遍历B列所有数据行
    For Line = 2 To Range("B" & Rows.Count).End(xlUp).Row
        ' 检查当前行B列是否同时包含"Main"和"Sub"
        If InStr(1, Range("B" & Line), "Main") <> 0 And InStr(1, Range("B" & Line), "Sub") <> 0 Then
            x = x + 1
            ' 将匹配行的A、B列内容写入E、F列
            Range("E" & x) = Range("A" & Line)
            Range("F" & x) = Range("B" & Line)
            
            found = False
            ' 从匹配行的下一行开始，查找特定字符串
            For nextLine = Line + 1 To Range("B" & Rows.Count).End(xlUp).Row
                If InStr(1, Range("B" & nextLine), targetStr) <> 0 Then
                    ' 找到后将对应值写入G列，若需取其他列，替换Range("B" & nextLine)为目标列
                    Range("G" & x) = Range("B" & nextLine)
                    found = True
                    Exit For ' 找到第一个匹配项即停止遍历
                End If
            Next nextLine
            
            ' 若后续行未找到目标字符串，标记提示
            If Not found Then
                Range("G" & x) = "未找到"
            End If
        End If
    Next Line
End Sub

关键调整说明： #

• 新增targetStr变量，方便快速修改要搜索的特定字符串
• 加入nextLine循环，实现匹配行后续的遍历搜索逻辑
• 增加found状态标记，处理后续行无匹配结果的场景
• 修复原代码的语法错误，完善整体执行流程

你可根据实际场景修改：

• 若要搜索的不是B列，将Range("B" & nextLine)替换为目标列（如Range("C" & nextLine)）
• 若需获取所有匹配项而非第一个，删除Exit For，并调整G列的写入格式（如用逗号分隔多个结果）

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