针对你需要从AutoFilter筛选后的列表中提取前5个可见单元格，同时避免界面闪烁的复制粘贴宏，这里有两个高效的方案：

一、VBA方案（无复制粘贴，高效静默执行） #

这种方法直接通过单元格赋值完成操作，完全跳过复制粘贴流程，还能关闭屏幕更新彻底避免界面闪烁。假设你的数据表在数据源工作表，表头在第1行，要提取的是A列的可见单元格，汇总到汇总表的A列开始：

Sub ExtractTop5Visible()
    Dim sourceWS As Worksheet, targetWS As Worksheet
    Dim visibleRange As Range, cell As Range
    Dim count As Integer, targetRow As Integer
    
    ' 关闭屏幕更新和事件，避免闪烁与干扰
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 定义目标工作表
    Set sourceWS = ThisWorkbook.Worksheets("数据源")
    Set targetWS = ThisWorkbook.Worksheets("汇总表")
    
    ' 清空汇总表目标区域（按需选择是否保留）
    targetWS.Range("A2:A6").ClearContents ' 假设汇总从第2行开始，共5行
    
    ' 获取筛选后的可见单元格（排除表头行）
    On Error Resume Next ' 处理无可见单元格的异常情况
    Set visibleRange = sourceWS.Range("A2:A" & sourceWS.Cells(sourceWS.Rows.count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleRange Is Nothing Then
        count = 0
        targetRow = 2 ' 汇总表起始行
        ' 遍历可见单元格，取前5个后停止
        For Each cell In visibleRange
            If count < 5 Then
                targetWS.Cells(targetRow, "A").Value = cell.Value
                count = count + 1
                targetRow = targetRow + 1
            Else
                Exit For
            End If
        Next cell
    End If
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

代码说明： #

• 关闭ScreenUpdating彻底消除界面闪烁，操作完成后自动恢复
• 用SpecialCells(xlCellTypeVisible)直接定位筛选后的可见区域，无需手动判断行的可见性
• 遍历过程中计数，取够5个就退出循环，提升执行效率
• 加入错误处理，避免没有可见单元格时触发报错

二、公式方案（无需宏，解决重复值问题） #

你之前的公式出现重复值，是因为每次都从最顶部查找最小可见行，没有排除已提取过的行。可以用AGGREGATE函数替代，它支持忽略隐藏行，还能指定返回第N个符合条件的行号：

假设数据表A列数据从A2开始，要在汇总表的A2单元格提取第1个可见值，A3提取第2个，以此类推到A6，公式如下（Excel 2016直接回车即可，无需数组输入）：

=IFERROR(INDEX(数据源!$A:$A,AGGREGATE(15,6,ROW(数据源!$A$2:$A$19)/(SUBTOTAL(103,OFFSET(数据源!$A$2,ROW(数据源!$A$2:$A$19)-ROW(数据源!$A$2),,1))>0),ROW(A1))),"")

公式说明： #

• SUBTOTAL(103,...)：用103参数（对应COUNTA）忽略隐藏行，判断每行是否可见
• AGGREGATE(15,6,...)：15对应SMALL函数，6代表忽略错误值，返回第N个可见行的行号（N由ROW(A1)控制，下拉时自动递增为1、2、3...）
• INDEX根据行号提取对应单元格的值
• IFERROR处理可见单元格不足5个的情况，显示空值避免报错
• 下拉公式到A6，就能自动获取前5个可见单元格的值，不会出现重复

两种方案对比 #

• VBA方案：适合需要自动化批量处理的场景，一次运行即可完成，全程静默无闪烁
• 公式方案：适合手动操作，无需启用宏，实时同步筛选后的结果

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