方法一:手动删除多余行
- 选中你想保留的最后一行的下一行(比如你只保留前10行,那选第11行)。
- 按住
Shift + Ctrl + ↓
(Windows)或Shift + Command + ↓
(Mac),选中从第11行到最后一行的所有行。 - 右键选择 删除。
- 保存文件。
方法二:用筛选功能
如果你有某种序号列,或者想保留前几行满足某条件:
- 添加辅助列,填入序号 1,2,3...(例如在A列从1开始编号)。
- 使用筛选功能,只筛选序号小于或等于你要保留的行数。
- 筛选后,选中所有显示的行,复制到新工作表或新文件。
方法三:用VBA代码自动删除后面行
如果需要批量操作或自动化,可以用VBA:
vba
Sub KeepTopRows()
Dim keepRows As Long
keepRows = 10 '保留前10行
With ActiveSheet
Dim lastRow As Long
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '假设A列有数据,找最后一行
If lastRow > keepRows Then
.Rows(keepRows + 1 & ":" & lastRow).Delete
End If
End With
End Sub
用方法:
- 按
Alt + F11
打开VBA编辑器。 - 插入模块,粘贴代码。
- 运行
KeepTopRows
宏。