excel - 如何删除 VBA/Excel 中 X 行下方的所有内容？

Question

我有一个包含数字的长变量 X。说是415。

如何删除工作表上第 415 行及以下的所有内容？

我想确保我的电子表格在第 415 行以及它下面的任何其他内容都是干净的。

我该怎么做呢？谢谢。

Answer 1

听起来像下面这样的东西会满足您的需求：

With Sheets("Sheet1")
    .Rows( X & ":" & .Rows.Count).Delete
End With

其中 X 是一个变量，它 = 行号 ( 415 )

Answer 2

另一种选择是Sheet1.Rows(x & ":" & Sheet1.Rows.Count).ClearContents（或.Clear）。您可能想要使用此方法而不是.Delete因为任何在已删除范围内具有依赖关系的单元格（例如，引用这些单元格的公式，即使是空的）最终都会显示#REF. 此方法将保留对已清除单元格的公式引用。

Answer 3

此函数将从指定的行和列开始清除工作表数据：

Sub ClearWKSData(wksCur As Worksheet, iFirstRow As Integer, iFirstCol As Integer)

Dim iUsedCols As Integer
Dim iUsedRows As Integer

iUsedRows = wksCur.UsedRange.Row + wksCur.UsedRange.Rows.Count - 1
iUsedCols = wksCur.UsedRange.Column + wksCur.UsedRange.Columns.Count - 1

If iUsedRows > iFirstRow And iUsedCols > iFirstCol Then
    wksCur.Range(wksCur.Cells(iFirstRow, iFirstCol), wksCur.Cells(iUsedRows, iUsedCols)).Clear
End If

End Sub

Answer 4

对“行”的任何引用都应使用“长”而不是“整数”，否则如果电子表格有大量数据，它将溢出。