vba遍寻二维数组arr（x，1）的所有数据是否有A

在VBA（Visual Basic for Applications）中，如果你有一个二维数组`arr(x, 1)`，你想查找其中所有元素是否包含字符"A"，你可以通过嵌套For循环来实现。下面是一个简单的示例：

Sub CheckForA()
    Dim arr(1 To x, 1 To 1) As Variant '假设x是你数组的第一维长度
    Dim i As Long, j As Long
    Dim containsA As Boolean
    
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If arr(i, j) = "A" Then
                containsA = True
                Exit For '一旦找到'A'，就退出内层循环
            End If
        Next j
        
        If containsA Then
            Debug.Print "Array row " & i & " contains 'A'."
        Else
            Debug.Print "Array row " & i & " does not contain 'A'."
        End If
        containsA = False '每次外层循环开始前清空标志
    Next i
End Sub

这个例子会检查每一行的第一个元素（因为数组是二维的，且第二个维度只有一个元素），如果找到"A"，则打印相应的消息，并继续到下一行。如果没有找到"A"，同样会给出相应提示。