删除VBA中的所有数据，但只删除一列

对不起，这个基本的问题。

我试图从工作表中删除数据，但我实际上想保留列A中的所有数据。我已经了解如何清除所有行，同时保持标题，但无法find一种方法来保存数据在A栏中

有谁知道如何做到这一点？

With Worksheets("Data") .Rows("2:" & .UsedRange.Count).Delete End With 

Answer 1

.UsedRange.Count将返回使用范围内所有单元格的计数，而不仅仅是行。

如果我理解正确，你想删除从B2到使用范围的结尾的一切。 你可以这样做：

 With Worksheets("Data") .Range("B2", Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).ClearContents End With 

Answer 2

另一种实现方式如下

 Sub test() lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row lastcolumn = Cells.SpecialCells(xlCellTypeLastCell).Column Range("B2", Cells(lastrow, lastcolumn)).Delete End Sub