我太懂这种烦恼了——明明只有2000行数据，工作表却硬生生占了6万多行，滚动条拖半天都到不了底！要彻底移除这些多余行（可不是简单删除空白行那种表面功夫），你可以试试下面这两种方法：

方法一：手动操作（快速解决单次需求） #

这是最直接的办法，不用任何复杂工具：

• 先定位到数据最后一行的下一行（比如你数据到2000行，就点击第2001行的行号）
• 按下组合键 Shift + Ctrl + ↓（向下箭头），瞬间选中从当前行到工作表最后一行的所有多余行
• 右键点击选中的行号区域，选择「删除」
• 保存文件后重新打开，你会发现滚动条滑到2000行就稳稳触底了

方法二：VBA宏批量处理（适合频繁处理这类文件） #

如果经常遇到这种冗余Excel文件，写个小宏能省超多时间：

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

Sub RemoveExtraRows()
    Dim lastUsedRow As Long
    ' 自动识别有数据的最后一行（这里默认检测A列，可按需修改列标）
    lastUsedRow = Cells(Rows.Count, "A").End(xlUp).Row
    ' 删除最后一行数据之后的所有行
    If lastUsedRow < Rows.Count Then
        Rows(lastUsedRow + 1 & ":" & Rows.Count).Delete
    End If
    MsgBox "多余行已清理完成！"
End Sub

4. 按下 F5 运行宏，几秒钟就搞定了

小贴士：运行宏前记得备份文件哦！如果你的数据核心列不是A列，把代码里的"A"改成对应列的字母就行（比如B列就写"B"）。

划重点：为什么普通删空白行没用？ #

很多人会用删除空白行的功能，但那只是删掉了有空白内容的行，可那些“隐形”的空行结构还留在工作表里。只有直接删除这些行的结构，才能让滚动条真正贴合你的数据范围。

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