数组中多个 if 语句的 VBA 代码

Question

我正在尝试拆分 B 列中的数组，该列用逗号分隔，然后查找每个项目，如果满足条件，则在 C 列中发布一些内容。

我有很多结合 AND/OR 条件的场景。
最后，如果不满足任何场景，则在“C”列中应为“未定义”。

Dim Cl As Range
Dim Dic As Object
Dim Sp As Variant
Dim i As Long
  
Set Dic = CreateObject("Scripting.dictionary")
With Sheets("Analysis")
    For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        Sp = Split(Cl.Offset(, 1).Value, ",")
        Select Case Cl.Offset(, 1).Value
            Case Is = " "
                C1.Offset(, 2).Value = " "
            Case Is = "Production"
                C1.Offset(, 2).Value = "Prod"
            Case Is = "Production" And "Development" Or "Training"
                C1.Offset(, 2).Value = "Dev/Prod"
        End Select
    Next Cl
End With
End Sub

A 列具有 Id 且 B 列具有类别的示例数据。

ID	CATEGORY
131	Production
124	Production, Development, Staging, Test, Training, UserAcceptanceTest
283	Development, Test
1138	empty.

我正在为以下提到的场景在“C”列中寻找以下结果。
如果类别列如下，则列“C”值应为“-”之后的值。

1. 空 - 否
2. 开发 - 开发
3. 生产 - 产品
4. 测试 - 测试
5. 分期 - 分期
6. 培训 - 培训
7. UserAcceptanceTest - UAT
8. 开发、测试和生产或任何其他类别 - 全部
9. 开发和测试或任何其他类别（生产除外）- 开发/测试
10. 测试和生产或任何其他类别（开发除外）- 开发/测试
11. 开发和任何其他类别（生产和测试除外）- 开发
12. 生产和任何其他类别（开发和测试除外）- 生产
13. 测试和任何其他类别（开发和生产除外）- 测试
14. 任何其他场景 - 未定义

Answer 1

使用来自This Answer的函数IsInArray：

我用一些示例来填充它，让你知道如何去做。

Sub Category()

For Each cl In Range("A2:A" & Range("A2").End(xlDown).Row)

    Sp = Split(tempString , ", ")

    Select Case True    
        Case UBound(Sp) = -1
            cl.Offset(0, 2).Value = "No"
        Case UBound(Sp) = 0 And Sp(0) = " "
            cl.Offset(0, 2).Value = "No"
        Case UBound(Sp) = 0 And Sp(0) = "Development"
            cl.Offset(0, 2).Value = "Dev"
        Case IsInArray("Development", Sp) And IsInArray("Test", Sp) And IsInArray("Production", Sp)
            cl.Offset(0, 2).Value = "All"
        Case IsInArray("Development", Sp) And Not IsInArray("Production", Sp) And Not IsInArray("Test", Sp)
            cl.Offset(0, 2).Value = "Dev"
        Case Else
            cl.Offset(0, 2).Value = "Not Defined"
    End Select

Next cl
End Sub


Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function