excel - VBA检查包含特定文本的单元格的最短方法

Question

我有一些 VBA 代码可以工作，但想知道是否有更简单的编码方法。我有一个包含 100 个唯一值的列表，并希望为每个值分配一个类别并将类别名称写入另一个单元格

我有工作 if-else 语句来检查每个值并输出一个类别。

Sub AssignCategory()
Dim rng As Range
Set rng = ActiveSheet.Range("A2:A100")
For Each cell In rng.Cells
    If InStr(1, cell, "Apple") Then
        cell.Offset(0, 2).Value = "Fruit"
    ElseIf InStr(1, cell, "Racoon") Then
        cell.Offset(0, 2).Value = "Animal"
    ElseIf InStr(1, cell, "Lion") Then
        cell.Offset(0, 2).Value = "Animal"
    ElseIf InStr(1, cell, "Quartz") Then
        cell.Offset(0, 2).Value = "Mineral"
    ElseIf InStr(1, cell, "Watermelon") Then
        cell.Offset(0, 2).Value = "Fruit"
    End If
Next
End Sub

代码正在运行，但我可以列出所有单元格，例如 Animals 并将类别 Animal 分配给所有单元格吗？而不是有 100 个单独的语句。

Answer 1

你可以试试 Select...case
microsoft