清除列的内容

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

感谢您的帮助。

2011-10-05 icobes

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

这将删除A3通过列A中的最后一个单元格，而不管该列中的任何空白。

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

将从A3在A列中删除向下的第一个空白单元格A3后

2011-10-05 00:24:09 Banjoe

感谢您的两个选项！我正在学习“SpecialCells”的价值 – ptpaterson

我使用了这个，奇怪的是，无论我指定哪个列，它每次都清除最后一次使用的列。仍试图找出原因。 – Paul

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

使用.Delete将实际删除细胞，转移了这个列表之后可能出现的任何细胞（由空白单元分隔）。如果你只是想清除内容，清除是一个好方法。

2011-10-05 02:30:52 aevanko

我会使用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

2013-11-09 23:19:53 kodi1911

我有与此结果良好：

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

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

2016-12-29 19:45:32

回答