清除列的内容

Question

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

谢谢您的帮助。

Answer 1

range("A3", columns("A").SpecialCells(xlCellTypeLastCell)).Delete

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

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

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

Answer 2

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

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

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