数组中有若干个字符串，用vba生成一个判断，如果表格a列有值等于数组中的字符串，则将该单元格赋值为1，否则赋值为0

可以使用VBA中的InStr函数来判断字符串是否存在于数组中，然后在表格a列中进行赋值操作。以下是示例代码：

Sub CheckArray()
    Dim arr() As String
    arr = Array("string1", "string2", "string3") '将要查找的字符串数组
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取表格a列的最后一行
    
    For i = 1 To lastRow '遍历表格a列
        For j = 0 To UBound(arr) '遍历字符串数组
            If InStr(Cells(i, "A").Value, arr(j)) > 0 Then '判断字符串是否存在于数组中
                Cells(i, "B").Value = 1 '如果存在，则将该单元格赋值为1
                Exit For '跳出当前循环
            Else
                Cells(i, "B").Value = 0 '如果不存在，则将该单元格赋值为0
            End If
        Next j
    Next i
End Sub

在上述代码中，我们首先定义了一个字符串数组arr，然后获取了表格a列的最后一行。接着，我们使用两个嵌套的循环来遍历表格a列和字符串数组，使用InStr函数来判断字符串是否存在于数组中，如果存在，则将该单元格赋值为1，否则赋值为0。最后，我们使用Cells函数来进行单元格的赋值操作。