Excel技术问询：如何删除基于公式生成的行

嘿，我来给你几个实用的办法搞定Excel里删除公式生成行的问题！根据你的场景，我整理了三种不同的方案，你可以根据自己的Excel版本和数据量挑合适的来用：

这是最直观的方法，适合数据量不算特别大的情况：

• 在数据旁边插入一个新列（比如D列），在D1单元格输入公式：=OR(ISFORMULA(A1),ISFORMULA(B1),ISFORMULA(C1))

  解释：这个公式会检查A、B、C列里是否有任意一个单元格是公式，有就返回TRUE，没有就返回FALSE。如果只需要检查某一列，直接改成=ISFORMULA(A1)就行

• 把这个公式下拉填充到所有数据行
• 选中辅助列的表头，点击「数据」选项卡的「筛选」按钮
• 点击辅助列的筛选箭头，只勾选TRUE，这样所有由公式生成的行就被筛选出来了
• 选中这些筛选后的行（别选表头），右键点击「删除行」，最后取消筛选就完成了

如果你的表格有几万行，手动筛选太慢，用宏自动处理会快很多：

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

Sub DeleteFormulaRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 改成你要处理的工作表名称，比如"ThisWorkbook.Sheets("收件人")"
    Set ws = ActiveSheet
    ' 这里的"A"是数据的最后一行所在的列，可根据实际调整
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上遍历，避免删除行后索引混乱
    For i = lastRow To 2 Step -1
        ' 检查A、B、C列是否有公式，可按需增减列
        If ws.Range("A" & i).HasFormula Or _
           ws.Range("B" & i).HasFormula Or _
           ws.Range("C" & i).HasFormula Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

• 按F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择DeleteFormulaRows执行

注意：运行前一定要备份数据！宏运行后没法撤销

如果以后还要经常处理这类数据，Power Query可以帮你固化流程，不用每次重复操作：

• 选中你的数据区域，点击「数据」选项卡→「从表格/范围」（Excel 2016及以后版本，旧版本找「获取和转换」组的对应选项）
• 在Power Query编辑器中，选中A、B、C列，右键点击列标题→「添加列」→「自定义列」
• 在自定义列公式框中输入：
  =List.AnyTrue(List.Transform({[A],[B],[C]}, each Value.Is(_, type Function)))
  点击确定，这个新列会标记该行是否包含公式
• 点击新列的筛选箭头，只勾选true，选中这些行后右键→「删除行」→「删除所选行」
• 点击「关闭并上载」，把清理好的数据导回Excel即可

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