Excel匹配单元格值返回对应值时，全列公式填充致文件膨胀、空值占位的解决思路

• 之前选中整列按Ctrl+D下拉填充的操作，本质是给工作表整列104万+个单元格全部写入IF判断公式，巨量冗余公式的存储和后台循环计算，就是文件从28KB暴涨到40MB、操作卡顿到保存都无响应的核心原因
• 普通逐行对位的IF公式，是按照行位置一一对应返回结果，天生没法跳过不满足条件的行把有效内容紧凑排在一起，必然会生成一堆空值占位，和你要的连续输出需求不匹配

如果你用的是Excel 365、2021及以上带动态数组功能的版本，根本不需要手动下拉填充，直接在目标输出列的第一个单元格（比如要出结果的C1）输入这一条公式就行：
=FILTER(SHEET1!B:B,SHEET1!A:A="x","无匹配项")

这个方案的好处：

• 只在1个单元格存公式，没有整列的冗余内容，完全不会把文件搞大、搞卡
• 自动筛出所有A列值为"x"对应的B列内容，结果自动挨在一起排，没有空的占位行
• 之后源表A、B列的数据变了，输出的结果会自动跟着更新，不用反复手动操作

旧版本Excel提醒：如果是2019及更早的、不支持FILTER函数的版本，以后填公式别选整列，就选实际有数据的那几行（比如数据只到第700行，就选C1:C700填公式），从根上避免整列冗余的破事。

要是你不想留公式、想要一次性生成纯静态的连续结果，直接用下面的宏就行：

1. 按Alt+F11打开VBA编辑器，左边工程栏点中你当前的工作簿，点顶部菜单「插入-模块」
2. 把下面的代码粘到右边的代码框里
3. 按F5直接运行，几秒钟就出结果

Sub 连续提取匹配内容()
    ' 临时关闭屏幕刷新和自动计算，运行过程不卡顿
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, writeRow As Long, i As Long
    
    ' 绑定数据源工作表
    Set wsSource = ThisWorkbook.Worksheets("SHEET1")
    ' 绑定结果输出的目标工作表，可根据实际需求修改表名、输出列
    Set wsTarget = ThisWorkbook.Worksheets("SHEET1")
    
    ' 获取A列最后一行有效数据的行号，不触碰下方几十万空行
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    ' 设置结果从目标列第1行开始连续写入
    writeRow = 1
    
    ' 逐行判断A列内容
    For i = 1 To lastRowSource
        If wsSource.Cells(i, "A").Value = "x" Then
            ' 匹配成功则写入对应B列值，自动下移写入位置保证结果无间隔
            wsTarget.Cells(writeRow, "C").Value = wsSource.Cells(i, "B").Value
            writeRow = writeRow + 1
        End If
    Next i
    
    ' 恢复Excel默认运行设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "提取完成，共匹配到" & writeRow - 1 & "条结果"
End Sub

宏方案的优势：

• 仅遍历实际存在的有效数据行，最终生成的全是静态值没有冗余公式，完全不会造成文件体积膨胀
• 自动跳过所有不满足条件的行，输出的结果完全连续，不存在空值占位
• 运行效率极高，即使是上万行规模的数据也可在1秒内完成处理

后续操作避坑：不管用什么公式，填充的时候永远别直接选整列按Ctrl+D，就选你实际有数据的那片区域填，从根源上避免文件卡顿、体积暴涨的问题。

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