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

Question

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

我有很多结合了 AND/OR 条件的场景。
最后，如果满足 none 个场景，则在“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”列值应为“-”之后的值。

空 - 否
开发 - 开发
生产 - 产品
测试 - 测试
分期 - 分期
训练 - 训练
UserAcceptanceTest - UAT
开发 AND 测试 AND 生产或任何其他类别 - 全部
开发和测试或任何其他类别（生产除外）- Dev/Test
测试和生产或任何其他类别（开发除外）- Dev/Test
开发和任何其他类别（生产和测试除外）- 开发
生产和任何其他类别（开发和测试除外）- 生产
测试和任何其他类别（开发和生产除外）- 测试
任何其他场景 - 未定义

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

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

VBA code for multiple if statements within an Array

arrays

excel

vba

split

select-case