方法一:手動刪除多余行
- 選中你想保留的最后一行的下一行(比如你只保留前10行,那選第11行)。
- 按住
Shift + Ctrl + ↓
(Windows)或Shift + Command + ↓
(Mac),選中從第11行到最后一行的所有行。 - 右鍵選擇 刪除。
- 保存文件。
方法二:用篩選功能
如果你有某種序號列,或者想保留前幾行滿足某條件:
- 添加輔助列,填入序號 1,2,3…(例如在A列從1開始編號)。
- 使用篩選功能,只篩選序號小于或等于你要保留的行數。
- 篩選后,選中所有顯示的行,復制到新工作表或新文件。
方法三:用VBA代碼自動刪除后面行
如果需要批量操作或自動化,可以用VBA:
Sub KeepTopRows()Dim keepRows As LongkeepRows = 10 '保留前10行With ActiveSheetDim lastRow As LonglastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '假設A列有數據,找最后一行If lastRow > keepRows Then.Rows(keepRows + 1 & ":" & lastRow).DeleteEnd IfEnd With
End Sub
用方法:
- 按
Alt + F11
打開VBA編輯器。 - 插入模塊,粘貼代碼。
- 運行
KeepTopRows
宏。