excel利用VBA选择活动单元格所在的数组区域

如果在某个区域中输入了相同的数组公式，选择其中某一部分单元格进行修改时，Excel将提示“不能更改数组的某一部分”，这时需要选择全部的数组进行修改。当活动单元格在数组区域中时，可以用下面的VBA代码选择当前整个数组区域，并且在状态栏中给出提示信息。

Public Sub SelectArray()
Dim Msg As String
On Error GoTo DispOnSstatusbar
Msg = "选择的单元格不在数组区域中。"
ActiveCell.CurrentArray.Select
Msg = "已选择数组区域：" & Selection.Address

DispOnSstatusbar:
Application.StatusBar = Msg

End Sub