VBScript 清除 Excel 所有行124

在 VBScript 中，您可以使用简单的代码轻松地从 Excel 工作表中删除所有行。这在需要从工作表中清除大量数据或仅保留特定行时非常有用。

所需步骤要清除 Excel 工作表中的所有行，请遵循以下步骤：1. 打开包含要清除行的 Excel 工作表。
2. 按 `Alt + F11` 打开 Visual Basic 编辑器。
3. 在“项目资源管理器”窗口中，右键单击要包含代码的模块，然后选择“插入”>“模块”。
4. 在模块窗口中，粘贴以下代码：
```vbscript
Sub ClearAllRows()
Dim ws As Worksheet
Set ws =
' 循环遍历工作表中的所有行
For i = To 1 Step -1
' 删除当前行
(i).Delete
Next i
' 保存更改

End Sub
```
5. 按 `F5` 运行代码。

这将从活动工作表中删除所有行，包括其包含的数据。运行代码后，请确保保存更改以应用删除。

示例

下面是一个使用上述代码的示例：```vbscript
Sub ClearAllRowsExample()
Dim ws As Worksheet
Set ws = Workbooks("Book1").Worksheets("Sheet1")
Call ClearAllRows
End Sub
```

在此示例中，我们假设工作簿名为“Book1”，工作表名为“Sheet1”。运行此代码将从“Sheet1”工作表中删除所有行。

注意* 在运行此代码之前，请确保您已将更改保存到工作表，因为删除行后无法撤消。
* 如果工作表中有公式或宏依赖于要删除的行，则这些公式或宏可能会失效。
* 您可以修改代码以仅删除特定范围内的行。例如，若要删除第 5 行到第 10 行，请使用以下代码：
```vbscript
For i = 10 To 5 Step -1
(i).Delete
Next i
```

2025-01-04

上一篇：显示未定义的 VBScript 错误处理

下一篇：VBscript 中用于字符的函数和方法