如何在Excel中删除首单元格为空的整行？

嘿，这个需求我太熟了！平时处理Excel数据经常碰到这种情况，给你整理了几个实用的方法，从手动操作到自动化都有，按需选择就行：

如果你的数据行数不多，手动筛选是最直接的方式：

• 选中首列（比如A列）的表头单元格
• 点击菜单栏的「数据」→「筛选」，此时表头会出现筛选箭头
• 点击筛选箭头，在下拉菜单里取消勾选「全选」，只勾选「空白」，确定后所有首单元格为空的行都会显示出来
• 选中这些显示出来的行（可以点击行号批量选择），右键→「删除行」
• 最后再点击「数据」→「筛选」关闭筛选，剩下的就是首单元格非空的行啦

要是担心手动筛选出错，可以先加个辅助列标记空行：

• 在数据最右侧插入一列（比如B列，假设数据从A列开始）
• 在B1单元格输入公式：=ISBLANK(A1)，按回车后，A1为空的话B1会显示TRUE，不为空则显示FALSE
• 把B1的公式下拉填充到所有数据行
• 选中B列表头，点击「数据」→「筛选」，筛选出所有TRUE的行
• 选中这些行删除，之后再删掉辅助列就搞定了

如果经常需要做这个操作，写个VBA宏一键执行效率超高：

1. 按下Alt + F11打开VBA编辑器
2. 点击「插入」→「模块」，在弹出的代码窗口里粘贴以下代码：

Sub DeleteRowsWithBlankFirstCell()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 当前激活的工作表，也可以改成指定工作表，比如Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 从最后一行往上遍历，避免删除行导致的索引错位
    For i = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If IsEmpty(ws.Cells(i, "A").Value) Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

3. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择DeleteRowsWithBlankFirstCell执行即可

注意：运行宏前最好先备份数据，避免意外！

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