excel - 在 VBA 或 Excel 中，如果数组包含值，我如何遍历数组并用 1 填充一些单元格，如果不包含值，则用 0 填充？

Question

我从 Wix 收到一个数组，其中包含用户通过表单选择的类(class)。
从 Wix 接收的数组示例，其中用户选择了 2 门类(class)。这个数组被放置在一个单元格中。

["VBA","Django"]

上面的数组放置在我的 excel 文件中的一个单元格中，我从该单元格中将单元格红色并用类(class)填充 VBA 数组:

Dim data() As Variant
    Dim arrStr As String
    Dim dataItems As Long
    Dim i As Long
    Dim IndividualCourses(1 To 9) As String

    arrStr = Range("T3")
    arrStr = Replace(Replace(arrStr, "[", "{"), "]", "}")
    data = Application.Evaluate(arrStr)
    dataItems = Application.CountA(data)
    For i = 1 To dataItems
        IndividualCourses(i) = data(i)
    Next i

但用户可以选择 1 到 10 门类(class)。所有类(class)的数组:
["JS","Python","VBA","Java","Spring","C++","C#",".NET","Django","CSS"]
我希望根据从 Wix 收到的数组，将 1 放在数组中存在的类(class)的单元格中，将 0 放在其他类(class)中。
例如，这门类(class)选择了 ["VBA","Django"]，它应该在 VBA 单元格中输入 1，在 Django 单元格中输入 1，在剩余类(class)单元格中输入 0，因为我想查看用户选择了哪些类(class).
对这个复杂的问题有什么想法吗？!？

Answer 1

不确定您在 VBA 上的设置如何，但根据您的 Excel 版本，您可以使用动态数组执行此操作，例如:
B2 中的公式:

=--ISNUMBER(FIND(""""&B1:K1&"""",A2))

编辑:
根据@T.M.他的宝贵意见，您可以在 FIND() 中提供第二个参数整个垂直范围:
B2 中的公式:

=--ISNUMBER(FIND(""&B1:K1&"",A2:A4))