数组中有若干个字符串，用vba生成一个判断，如果表格等于数组中的名字，则输出1，否则输出0

可以使用VBA中的InStr函数来判断一个字符串是否在数组中，具体代码如下：

Sub CheckArray()
    Dim arrNames() As String
    Dim strName As String
    Dim i As Integer
    
    '定义数组
    arrNames = Split("Tom,Dick,Harry", ",")
    
    '输入要查找的字符串
    strName = InputBox("请输入要查找的名字：")
    
    '循环判断数组中是否有该字符串
    For i = 0 To UBound(arrNames)
        If InStr(1, arrNames(i), strName, vbTextCompare) > 0 Then
            MsgBox "1"
            Exit Sub
        End If
    Next i
    
    '如果没有找到，则输出0
    MsgBox "0"
End Sub

在这个代码中，我们首先定义了一个字符串数组arrNames，然后输入要查找的字符串strName。接着，我们使用For循环遍历数组中的每一个字符串，使用InStr函数判断该字符串是否包含要查找的字符串。如果找到了，则输出1并退出循环，否则继续循环。如果循环结束后还没有找到，则输出0。