如何删除VBA / Excel中X行下面的所有内容?

我有一个很长的variablesX包含一个数字。 说是415。

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

我想确保我的电子表格在第415行以及其他任何可能低于它的地方都是干净的。

我该怎么做呢? 谢谢。

这听起来像下面的东西将适合您的需求:

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

其中X是variables=行号(415)

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

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

 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 

任何对“行”的引用都应该使用“long”而不是“integer”,否则,如果电子表格中有大量数据,它将会溢出。