如何在Excel中将ActiveCell地址存储到动态数组中？

Dim addressArray() As String '声明一个字符串数组

Sub StoreActiveCellAddress()
    Dim activeCellAddress As String '声明一个字符串变量
    activeCellAddress = ActiveCell.Address '获取当前活动单元格的地址
    ReDim Preserve addressArray(UBound(addressArray) + 1) '调整数组大小
    addressArray(UBound(addressArray)) = activeCellAddress '将地址存储到数组中
End Sub

Sub DisplayAddressArray()
    Dim i As Integer
    For i = LBound(addressArray) To UBound(addressArray)
        MsgBox addressArray(i)
    Next i
End Sub