if then 语句，VBA，循环

Question

这是我想要完成的一个例子是 Excel。

食品组/食品 / 苹果 / 香蕉 / 胡萝卜 / 西兰花

我正在写一个 If Then 语句来尝试将食物与他们的组匹配。

（我知道 Access 会更容易，但我不想一直从 Excel 复制和粘贴到 Access 和返回。它只会是 6 个不同的项目）

我编写的 If Then 编码仅用于执行第一个单元格。但是我的循环不起作用。请帮忙

Sub InsertFoodGroup()

    Dim food As String, group As String
    Dim i As Integer

    i = Cells(2, 2).End(xlDown).Row

    food = Range(Cells(2, 2), Cells(i, 2)).Value

        Do While Cells(i, 2).Value <> ""
            If food = "Apple" Then
                group = "Fruit"
            ElseIf food = "Banana" Then
                group = "Fruit"
            ElseIf food = "Carrot" Then
                group = "Vegetable"
            ElseIf food = "Broccoli" Then
                group = "Vegetable"
            Else
                total = "false"
            End If
            i = i + 1
        Loop

    Range(Cells(2, 21), Cells(i, 21)).Value = group

End Sub

Answer 1

我可以建议使用一个非常简单的 UDF：

Public Function foodToGroup(ByVal food As String) As Variant
    Select Case food
        Case "Apple", "Banana":
        foodToGroup = "Fruit"
        Case "Carrot", "Broccoli":
        foodToGroup = "Vegetable"
        Case Else
        foodToGroup = False
    End Select
End Function

因此，假设您的数据位于“A1:A100”中，您只需在单元格“B1”（或您需要的任何位置）中输入=foodToGroup(A1)，然后向下拖动函数直到数据结束。

请注意，这可以通过简单的 Excel 公式轻松实现：=IF(OR(A1="Banana",A1="Apple"),"Fruit",IF(OR(A1="Carrot",A1="Broccoli"),"Vegetable",FALSE))