在 Excel 中查找忽略重复项的前 N 个值

在 Excel 中查找忽略重复项的前 N 个值，是一种常见的需求，在处理大量数据时可以极大地提高效率。以下是一些方法供参考。

方法1：使用高级筛选功能

高级筛选是 Excel 中非常强大的工具，可以很方便地查找符合特定条件的数据。具体步骤如下：

1. 选中需要筛选的数据区域。
2. 点击菜单栏上的“数据”->“高级筛选”。
3. 在弹出的高级筛选对话框中，选择“复制到其它位置”。
4. 在“列表区域”中填写需要筛选的列。
5. 在“条件区域”中填写筛选条件。例如，如果需要筛选前10个不重复的值，则可以在 A1 单元格内输入=IF(COUNTIF($A$2:A2,A2)=1,1,0)，然后拖动单元格以复制该公式至 A2:A1001，再在单元格 D1 内输入0，D2 中输入=IF(SUM($A$2:$A2)>=10,1,0)，拖拉 D2 至 D1001。
6. 在“输出区域”中填写输出的区域，可以将它指向另一个工作表或者是本工作表内的某个位置。
7. 点击“确定”按钮即可进行筛选。

方法2：使用自定义快捷键

使用自定义快捷键可以简化操作流程，提高效率。具体步骤如下：

1. 打开 Excel，点击“文件”->“选项”->“快捷键”。
2. 在“选择命令”栏中选择“高级筛选”命令。
3. 在“按键组合”栏中输入自定义的快捷键，例如“Ctrl+Shift+F”。
4. 点击“确定”按钮即可。

方法3：使用 VBA 宏

使用 VBA 宏可以实现更加复杂的操作流程，可以实现自动化处理。具体步骤如下：

1. 在 Excel 中按下 Alt+F11 进入 VBA 编辑器。
2. 在左侧的“项目”窗格中，找到所需的工作簿，右键点击它，选择“插入”->“模块”。
3. 在新建的模块中输入以下代码：

Sub FilterByTopN()
    Dim lastRow, i, j, k, count As Integer
    Dim values, uniqueValues As Variant
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    values = ActiveSheet.Range("A2:A" & lastRow).Value
    ReDim uniqueValues(1 To UBound(values))
    
    For i = 1 To UBound(values)
        For j = 1 To UBound(uniqueValues)
            If values(i, 1) = uniqueValues(j) Then
                Exit For
            ElseIf j = count + 1 Then
                uniqueValues(j) = values(i, 1)
                count = count + 1
                Exit For
            End If
        Next j
    Next i
    
    Dim topN As Integer
    topN = InputBox("请输入要筛选的前N个数：")
    
    If topN > count Then
        MsgBox "总数不足" & topN & "个，无法筛选！"
        Exit Sub
    End If
    
    Dim filterArr(), resultArr()
    ReDim filterArr(1 To topN, 1 To 1)
    ReDim resultArr(1 To count, 1 To 1)
    
    For i = 1 To count
        For j = 1 To topN
            If filterArr(j, 1) = uniqueValues(i) Then
                Exit For
            ElseIf IsEmpty(filterArr(j, 1)) Then
                filterArr(j, 1) = uniqueValues(i)
                Exit For
            ElseIf filterArr(j, 1) > uniqueValues(i) Then
                For k = topN - 1 To j Step -1
                    filterArr(k + 1, 1) = filterArr(k, 1)
                Next k
                filterArr(j, 1) = uniqueValues(i)
                Exit For
            End If
        Next j
    Next i
    
    k = 1
    
    For i = 1 To UBound(values)
        For j = 1 To topN
            If values(i, 1) = filterArr(j, 1) Then
                resultArr(k, 1) = values(i, 1)
                k = k + 1
                Exit For
            End If
        Next j
    Next i
    
    ActiveSheet.Range("B2:B" & lastRow).ClearContents
    ActiveSheet.Range("B2:B" & topN + 1).Value = resultArr
    
End Sub

4. 返回 Excel 界面，按下 Alt+F8，选择该宏并执行即可。

以上是三种常用的方法，使用起来各有优缺点，可以根据实际需求选择合适的方法。