Excel技术问询：如何根据M列条件生成引用A列的结果列表

嘿，我来帮你解决这个提取列表的问题！你现在能单个引用单元格，但没法自动生成完整的符合条件的列表，对吧？下面给你几个不同场景下的解决方案，总有一个适合你：

如果你用的是新版Excel，直接用FILTER函数就能一步到位，它会自动把所有符合条件的内容生成列表，不用手动下拉：
在一个空白单元格（比如N1）输入公式：

=FILTER(A:A, M:M="no", "无符合条件的数据")

• 这个公式会自动筛选出M列值为no的所有行，把对应A列的内容自动溢出成列表，不需要下拉填充。
• 最后那个"无符合条件的数据"是可选的，如果没有符合条件的内容，会显示这段提示，你也可以改成空字符串""。

要是你用的是旧版Excel（没有动态数组功能），可以用INDEX+SMALL+IF的组合公式来实现：
在空白单元格（比如N1）输入下面的公式，然后按Ctrl+Shift+Enter（因为是数组公式，必须用这个组合键确认）：

=IFERROR(INDEX(A:A, SMALL(IF(M:M="no", ROW(M:M)), ROW(A1))), "")

然后把这个单元格下拉填充，直到出现空值为止。

• 公式逻辑：先用IF找出所有M列值为no的行号，再用SMALL按顺序取出这些行号，最后用INDEX对应提取A列的内容；IFERROR用来处理当没有更多符合条件的数据时，显示空值而不是错误。

如果需要经常做这个操作，或者数据量很大，写个小宏会更高效：

1. 按Alt+F11打开VBA编辑器；
2. 右键点击左侧的工作表名称，选择「插入」→「模块」；
3. 粘贴下面的代码：

Sub ExtractNoList()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    
    ' 可以把ActiveSheet改成你的工作表名，比如ThisWorkbook.Sheets("Sheet1")
    Set ws = ActiveSheet
    ' 获取M列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "M").End(xlUp).Row
    ' 结果从第1行开始放，你可以改成其他行，比如j=10
    j = 1
    
    For i = 1 To lastRow
        ' 判断当前行M列是否为"no"
        If ws.Cells(i, "M").Value = "no" Then
            ' 把对应A列的值放到N列，可修改列号
            ws.Cells(j, "N").Value = ws.Cells(i, "A").Value
            j = j + 1
        End If
    Next i
    
    MsgBox "列表生成完成！共提取" & j - 1 & "条数据"
End Sub

4. 回到Excel，按Alt+F8，选择ExtractNoList这个宏运行，就能自动生成列表了。

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