在Excel VBA中，可以使用循环结构和条件语句来比较数组并进行赋值。以下是一个示例代码：

Sub CompareArraysAndAssign()
    Dim arr1 As Variant
    Dim arr2 As Variant
    Dim result As Variant
    
    ' 定义要比较的数组
    arr1 = Array("Apple", "Banana", "Orange")
    arr2 = Array("Banana", "Orange", "Grapes")
    
    ' 定义结果数组
    ReDim result(LBound(arr1) To UBound(arr1))
    
    ' 比较数组并赋值
    Dim i As Integer
    For i = LBound(arr1) To UBound(arr1)
        If arr1(i) = arr2(i) Then
            result(i) = "Match"
        Else
            result(i) = "No Match"
        End If
    Next i
    
    ' 将结果数组输出到单元格
    For i = LBound(result) To UBound(result)
        Cells(i + 1, 1).Value = result(i)
    Next i
End Sub

在上述代码中，我们定义了两个数组arr1和arr2，并将它们赋值为字符串数组。然后，我们定义了一个结果数组result，用于存储比较结果。

接下来，我们使用一个循环结构（For循环）来遍历数组中的元素。在每次迭代中，我们使用条件语句（If语句）来比较arr1和arr2中相应位置的元素。如果它们相等，则将"Match"赋值给结果数组中对应位置的元素；否则，将"No Match"赋值给结果数组中对应位置的元素。

最后，我们使用另一个循环结构将结果数组的元素输出到Excel工作表的单元格中。在每次迭代中，我们使用Cells函数将结果数组中的元素写入到第一列的相应行。

通过运行上述代码，你将在Excel工作表的第一列中看到比较结果。每个元素的比较结果将显示为"Match"或"No Match"。