Excel数据处理：移除列中零值并整理有效数据至顶部

方法1：动态数组公式（Excel 365/2021适用） #

直接在C1单元格输入公式，有效数据会自动溢出填充，无零值占位：

=FILTER(A:A, B:B=1, "")

这个公式会直接提取所有B列为1对应的A列内容，自动跳过不符合条件的行，有效数据自动集中在顶部。

方法2：非动态数组公式（旧版Excel适用） #

如果你的Excel不支持动态数组，在C1单元格输入以下数组公式（输入后按Ctrl+Shift+Enter确认）：

=IFERROR(INDEX(A:A, SMALL(IF(B:B=1, ROW(A:A)), ROW(A1))), "")

下拉公式直到出现空白单元格即可，所有有效数据会依次填充在C列顶部，不会出现零值。

方法3：VBA自动更新（需自动刷新场景适用） #

若需要数据变化时C列自动更新：

1. 右键目标工作表标签，选择「查看代码」
2. 在弹出的编辑器中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
    ' 清空C列旧数据
    Me.Range("C:C").ClearContents
    ' 筛选并复制有效数据到C列
    Me.Range("A1:B" & lastRow).AutoFilter Field:=2, Criteria1:=1
    On Error Resume Next ' 处理无符合条件数据的情况
    Me.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Copy Me.Range("C1")
    On Error GoTo 0
    Me.AutoFilterMode = False
End Sub

保存后，只要A或B列数据发生变化，C列就会自动更新，只保留有效数据并集中在顶部。

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