在R中导入并整理劣质Excel表格：动态匹配行选择问题

听起来你已经搞定了动态高亮区域的第一部分，卡在了第二部分的精准匹配上——要让选中的行子集和另一高亮区的project_codes完全对齐对吧？

我结合工作表场景（默认是Excel）给你几个可行的落地思路：

• VBA 动态匹配方案
  核心思路是先把目标project_codes存入快速查找容器，再遍历动态数据区筛选匹配行，完美适配数据增减的场景：

  Sub MatchDynamicProjectCodes()
      Dim targetCodesRange As Range, dataSourceRange As Range
      Dim codeLookup As Object, currentCell As Range, matchedRows As Range
      
      ' 动态获取两个高亮区域（这里用选中区域演示，你可以替换成自己的动态获取逻辑）
      Set targetCodesRange = Application.InputBox("选择project_codes高亮区域", Type:=8)
      Set dataSourceRange = Application.InputBox("选择要筛选的数据源区域", Type:=8)
      
      ' 用字典存目标codes，实现O(1)查找
      Set codeLookup = CreateObject("Scripting.Dictionary")
      For Each currentCell In targetCodesRange
          If Not codeLookup.Exists(currentCell.Value) Then
              codeLookup.Add currentCell.Value, True
          End If
      Next currentCell
      
      ' 遍历数据源，筛选匹配行
      For Each currentCell In dataSourceRange.Columns(2).Cells ' 假设project_code在数据源第二列
          If codeLookup.Exists(currentCell.Value) Then
              If matchedRows Is Nothing Then
                  Set matchedRows = currentCell.EntireRow
              Else
                  Set matchedRows = Union(matchedRows, currentCell.EntireRow)
              End If
          End If
      Next currentCell
      
      ' 选中匹配的行子集
      If Not matchedRows Is Nothing Then
          matchedRows.Select
          MsgBox "已选中所有匹配project_codes的行"
      Else
          MsgBox "未找到匹配的行"
      End If
  End Sub
  

  你可以把第一部分验证过的动态区域获取逻辑，替换掉示例里的InputBox部分，确保范围随数据自动调整。

• 无代码的Power Query方案
  如果不想写代码，用Power Query也能轻松实现：

  1. 把两个高亮区域分别导入Power Query（数据→自表格/区域）
  2. 选择数据源查询，点击合并查询，以project_codes为匹配键，关联目标codes查询
  3. 筛选合并后的结果，保留匹配成功的行，再加载回工作表
     后续数据增减时，只需刷新查询就能自动更新匹配的行子集

要是你的场景不是Excel（比如用Python处理表格），可以补充具体工具信息，我再给你针对性的调整方案~

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