VBA清除一定范围或单元格中的内容

Question

如何清除以参考单元格开头的列和行？

我用了

For x = 1 To 20 
    Sheets(1).Columns(x).ClearContents
Next x

但是我希望能够清除以A6行为参考点的所有行和列的内容。 我不能使用范围，因为数据是动态的，并且在插入数据时会发生变化。 数据来自csv

Answer 1

由于您的问题是“我希望能够清除以A6行为参考点的所有行和列的内容”。 然后这是一个使用SpecialCells(xlLastCell)衬垫

ActiveSheet.Range("A6", ActiveCell.SpecialCells(xlLastCell)).Clear

Answer 2

如果您的范围从A6开始并且连续， Row 6没有空白，而在Column A没有空白，则可以这样设置范围：

'Create variables
Dim wb as Workbook
Dim ws as Worksheet
Dim rng as Range

'Initialize variables
set wb = ActiveWorkbook
set ws = ActiveSheet
lastrow = ws.Range("A6").End(xlDown).Row
lastcol = ws.Range("A6").End(xlToRight).Column

'Set the range
set rng = ws.Range(Cells(6,1),Cells(lastrow,lastcol))

'Clear contents
rng.ClearContents

这使用Range对象的Range.End属性。 基本上就像单击A6并在键盘上按ctrl+right Right，然后返回范围。

注意：如果范围内有差距，您将无法获得正确的结果。