清除栏目内容

Question

如何清除从单元格 A3 到单元格 __ 的列内容，其中 __ 表示列中的最后一个条目（假设条目之间没有空格）。

感谢您的帮助。

Answer 1

Range("A3", Range("A3").End(xlDown)).Clear

使用 .Delete 实际上会删除单元格，向上移动此列表之后可能出现的任何单元格（由空白单元格分隔）。如果您只想清除内容，.Clear 是一个不错的选择。

Answer 2

range("A3", Range("A" & Columns("A").SpecialCells(xlCellTypeLastCell).Row)).Delete

这将删除 A3 到 A 列中的最后一个单元格，无论该列中是否有任何空白。

range("A3", range("A3").End(xlDown)).Delete

这将从 A3 删除到 A 列中 A3 之后的第一个空白单元格。

编辑：修复了第一个代码片段，使其仅删除 A 列中的单元格。

Answer 3

我会使用 vbNullString，因为它速度稍快，并且可以在大量数据工作表上高效工作。

将 A3 中的“无内容”粘贴到 A 列中的第一个空白单元格：

Range(Cells(1,3), Cells(Range("A3").End(xlDown).Row,1)).Value = vbNullString

将 A3 中的“无内容”粘贴到 A 列中的最后一个单元格：

Range(Cells(1,3), Cells(Range("A3").SpecialCells(xlTypeLastCell),1)).Value = vbNullString

Answer 4

我在这方面取得了很好的结果：

Set tbl = ActiveSheet.ListObjects("Table_Name")
Count = tbl.DataBodyRange.Rows.Count

Range("AC2:AC" + CStr(Count)).Select
Selection.ClearContents