如何删除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”，否则，如果电子表格中有大量数据，它将会溢出。