在Excel中，如果要保留第3行数据并删除其他行，使用逐行删除的方法确实会很慢

[Borter]

在Excel中，如果要保留第3行数据并删除其他行，使用逐行删除的方法确实会很慢，因为每次删除一行后，表格的行号都会发生变化，导致删除操作需要不断重新定位。以下是一些更高效的方法：

### 方法1：使用VBA代码
可以通过VBA代码快速删除除第3行外的所有行。以下是具体的VBA代码示例：
```vba
Sub DeleteRowsExceptThird()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    If lastRow > 3 Then
        ws.Rows("4:" & lastRow).Delete ' 删除第4行到最后一行
    End If
    If lastRow < 3 Then
        ws.Rows("1:2").Delete ' 如果总行数少于3行，删除第1行和第2行
    End If
End Sub
```
- 将此代码复制到Excel的VBA编辑器中（按`Alt + F11`打开VBA编辑器，插入一个模块，然后粘贴代码）。
- 运行此宏即可快速删除除第3行外的所有行。

### 方法2：使用筛选和删除
如果你不想使用VBA，可以通过筛选和删除的方法来实现：
1. 在数据的第一列（假设是A列）添加一个辅助列。
2. 在A1单元格输入公式`=ROW()`，然后将此公式向下拖动到所有行。
3. 选择整个数据区域（包括辅助列）。
4. 点击“数据”选项卡，选择“筛选”。
5. 在辅助列的筛选框中，选择“不等于3”，然后点击“确定”。
6. 选择所有筛选出来的行，右键点击选择“删除行”。
7. 取消筛选，此时只有第3行数据保留。

### 方法3：使用“定位条件”删除
1. 选择整个数据区域。
2. 按`Ctrl + G`打开“定位条件”对话框。
3. 点击“定位内容”，选择“定位内容”中的“特定文字”。
4. 在“定位内容”对话框中，选择“行号”，输入“1,2,4,5,6……”（即除了3以外的所有行号），然后点击“确定”。
5. 选择所有定位到的行，右键点击选择“删除行”。

以上方法都可以快速删除除第3行外的所有行，相比逐行删除要高效得多。