Excel技术求助：查找重复数字及匹配后创建新搜索范围

根据你提供的示例，核心需求是：从数据行开始逐个检查编号，当在当前生效的搜索范围内找到重复编号时标记为match，并立即重置搜索范围为当前行的下一行；若未找到重复则标记为unique number，搜索范围保持不变。

以下是两种可行的实现方案：

方案1：公式+辅助列实现（无需编程） #

假设编号数据在A列（表头A1，数据从A2开始），预期结果输出到B列，新增辅助列C跟踪搜索范围起始行：

1. 设置辅助列C

   • 在C2单元格输入初始值：2（代表初始搜索范围从第2行开始）
   • 在C3单元格输入公式，然后下拉到所有数据行：

     =IF(B2="match", ROW()+1, C2)
     

     作用：如果上一行标记为match，则将下一个搜索范围的起始行设为当前行的下一行；否则保持原有起始行。

2. 设置结果列B

   • 在B2单元格输入公式，然后下拉到所有数据行：

     =IF(COUNTIF(INDIRECT("A"&C2&":A"&ROW()-1), A2)>0, "match", "unique number")
     

     作用：统计当前搜索范围（从C列的起始行到当前行的上一行）内与当前编号重复的数量，有重复则标记match，否则标记unique number。

方案2：VBA宏实现（无辅助列） #

如果不想使用辅助列，可以通过VBA宏直接完成标记：

1. 按下Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

   Sub MarkUniqueAndMatch()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim startRow As Long
       Dim i As Long, j As Long
       Dim currentNum As Variant
       Dim matchFound As Boolean
       
       ' 指定目标工作表，可根据实际修改为Sheet1等
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       startRow = 2 ' 数据起始行（表头在第1行）
       
       For i = startRow To lastRow
           currentNum = ws.Cells(i, "A").Value
           matchFound = False
           
           ' 在当前搜索范围内查找重复
           For j = startRow To i - 1
               If ws.Cells(j, "A").Value = currentNum Then
                   matchFound = True
                   Exit For
               End If
           Next j
           
           If matchFound Then
               ws.Cells(i, "B").Value = "match"
               startRow = i + 1 ' 重置搜索起始行
           Else
               ws.Cells(i, "B").Value = "unique number"
           End If
       Next i
   End Sub
   

2. 返回Excel界面，按下Alt+F8选择MarkUniqueAndMatch并运行，结果会自动填充到B列。

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