如何从vba中清除Excel数组？

Question

如何从VBA清除 Excel数组（形状未知）？ 鉴于我知道阵列从“A1”开始。 所以我需要得到形状，选择并清除。

Answer 1

如果你的意思是一系列细胞：

MyRange.Clear

或

MyRange.ClearContents

修改＃1

清除一系列细胞需要两个部分：

1. 设置范围
2. 应用Clear方法

如果您有一个以 A1 开头的公式块，那么您发布的代码将以类似于以下的方式运作：

Sub ClearCells()
    Dim RangeToClear As Range
    '
    'the first part
    '
    d1 = Range("A1").End(xlToRight).Column
    d2 = Range("A1").End(xlDown).Row
    Set RangeToClear = ActiveSheet.Range(Cells(1, 1), Cells(d1, d2))
    '
    'the second part
    '
    RangeToClear.ClearContents
End Sub

会工作............我的意思是第二部分只需要一个陈述。

Answer 2

快速而肮脏的解决方案是使用：

d1 =Range("A1").End(xlToRight).Column 
d2 =Range("A1").End(xlDown).row 
ActiveSheet.Range(Cells(1, 1), Cells(LastRowData, LastColData)).ClearContents