Excel宏开发求助：查找特定文本复制行仅部分成功

我猜你之前的代码大概率是在匹配带空格的文本时踩了坑，比如GH.test3 20和DF.test4 29里的空格处理不当，或者匹配逻辑只覆盖了BG.test1，没正确适配另外两个目标文本。下面给你一套完整的修正方案：

核心问题分析 #

常见的出错原因包括：

• 用了精确匹配（比如= "GH.test3 20"），但单元格内容可能有多余空格、大小写不一致，或者目标文本只是单元格内容的一部分
• 只针对BG.test1写了判断逻辑，另外两个文本的判断条件存在拼写错误、列号选错等问题
• 遍历范围没覆盖到包含另外两个文本的行

修正后的VBA宏代码 #

Sub ExtractTargetRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastSourceRow As Long
    Dim currentRow As Long
    Dim targetRowCounter As Long
    Dim searchKeywords As Variant
    Dim keyword As Variant
    
    ' 1. 定义源表和目标表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    ' 如果目标表不存在，自动创建（可根据需求调整表名）
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Worksheets("ExtractedRows")
    On Error GoTo 0
    If targetSheet Is Nothing Then
        Set targetSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        targetSheet.Name = "ExtractedRows"
    End If
    
    ' 2. 初始化目标行计数器（如果源表有表头，这里改成2）
    targetRowCounter = 1
    
    ' 3. 把需要匹配的关键词放进数组，统一处理
    searchKeywords = Array("BG.test1", "GH.test3 20", "DF.test4 29")
    
    ' 4. 获取源表最后一行数据（假设数据从A列开始，可根据实际调整列号）
    lastSourceRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 5. 遍历源表每一行，检查是否匹配关键词
    For currentRow = 1 To lastSourceRow ' 有表头的话改成2
        For Each keyword In searchKeywords
            ' 用InStr实现**包含匹配**（不区分大小写），适合关键词是单元格内容一部分的情况
            ' 如果需要精确匹配，替换成：If sourceSheet.Cells(currentRow, 1).Value = keyword Then
            If InStr(1, sourceSheet.Cells(currentRow, 1).Value, keyword, vbTextCompare) > 0 Then
                ' 复制整行到目标表
                sourceSheet.Rows(currentRow).Copy Destination:=targetSheet.Rows(targetRowCounter)
                targetRowCounter = targetRowCounter + 1
                Exit For ' 避免同一行被多次复制（如果一个行包含多个关键词）
            End If
        Next keyword
    Next currentRow
    
    MsgBox "提取完成！共复制了 " & targetRowCounter - 1 & " 行数据到ExtractedRows工作表。"
End Sub

关键注意事项 #

1. 匹配方式选择：

   • 如果关键词是单元格的完整内容，把InStr的判断改成sourceSheet.Cells(currentRow, 1).Value = keyword，但要确保关键词和单元格内容完全一致（包括空格、大小写）
   • 如果关键词只是单元格内容的一部分，保留InStr的包含匹配逻辑

2. 列号调整：
   代码里默认检查A列（Cells(currentRow, 1)），如果你的目标关键词在其他列（比如B列），把1改成对应的列号（比如B列是2）

3. 空格问题排查：
   检查GH.test3 20和DF.test4 29里的空格是否和单元格内容一致——比如单元格里是不是GH.test3 20（两个空格），而你写的是一个空格，这会导致精确匹配失败

4. 大小写问题：
   代码里用vbTextCompare实现不区分大小写匹配，如果需要严格区分大小写，改成vbBinaryCompare

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