下面是一个示例代码，演示了如何比较活动单元格地址与数组的内容：

Sub CompareCellAddressWithArray()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Integer
    
    ' 设置活动单元格范围
    Set rng = ActiveCell
    
    ' 填充数组
    arr = Array("A1", "B2", "C3", "D4")
    
    ' 遍历数组，比较每个元素与活动单元格地址
    For i = LBound(arr) To UBound(arr)
        If rng.Address = Range(arr(i)).Address Then
            MsgBox "活动单元格地址与数组中的地址相同：" & rng.Address
            Exit Sub
        End If
    Next i
    
    ' 如果没有找到匹配项，显示消息框
    MsgBox "活动单元格地址与数组中的地址不相同：" & rng.Address
End Sub

在这个示例中，我们首先定义了一个活动单元格范围rng，然后填充了一个字符串类型的数组arr。然后，我们通过循环遍历数组arr，并通过Range()函数将数组元素转换为单元格范围。然后，我们将活动单元格地址与数组中的地址进行比较。如果找到匹配项，我们将显示一个消息框来通知用户。如果没有找到匹配项，我们也会显示一个消息框。

你可以根据自己的需求修改这个示例代码，以适配你的具体情况。