清除列的内容

问题描述 投票:5回答:4

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

谢谢您的帮助。

excel vba excel-vba
4个回答
9
投票
range("A3", columns("A").SpecialCells(xlCellTypeLastCell)).Delete

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

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

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


8
投票
Range("A3", Range("A3").End(xlDown)).Clear

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


1
投票

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

0
投票

我用这个得到了很好的结果:

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

Range("AC2:AC" + CStr(Count)).Select
Selection.ClearContents
© www.soinside.com 2019 - 2024. All rights reserved.