excel - 如何在 VBA 中使用多个 case 语句

Question

我有两列，可以说 A 和 B。在 A 列中，我有 Apple、banana、Brinjal 等值，在 B 列中有成熟和未成熟的值。在 C 列中，我想检查它是水果还是蔬菜，然后成熟或未成熟。我想要下面的结果。

如何使用多个 Case 语句？

Private Sub CommandButton1_Click()
     Dim category As String, result As String
     For i = 2 To 1000
         category = Range("A" & i).Value
         Select Case category
             Case "Apple"
                   result = "Fruit"
             Case "Brinjal"
                   result = "Vegetable"
         End Select
         Range("C" & i).Value = result
     Next
End Sub

Answer 1

您可以使用逗号指定值列表:

Private Sub CommandButton1_Click()
    Dim category As String, result As String
    For i = 2 To 1000
        category = Range("A" & i).Value
        Select Case category
            Case "Apple", "Banana", "Orange"
                result = "Fruit"
            Case "Brinjal"
                result = "Vegetable"
            Case else
                result = vbnullstring
            End Select
        Range("C" & i).Value = Range("B" & i).Value & " " & result
    Next i
End Sub