创建用于映射的宏

Question

我对VBA很新，并且有关于创建宏来进行映射的问题。例如，如果我在A列中有以下列表：

Apple
Volvo
Hyundai
Orange
Grape
Christmas
Thanksgiving

现在，我想基于以下映射转换A列中的项目

Apple, Orange, Grape --> Fruit
Volvo, Hyundai --> Car
Christmas, Thanksgiving --> Holiday

这只是一个简单的例子，我希望我能在开始时获得一些帮助，以便我可以扩展宏。

谢谢！

Answer 1

案例陈述可以很好地评估该项目。

Dim TheItem as string 
'~~~TheItem = ColumnA
Dim TheType as string = ""
Select Case TheItem.ToUpper

  case "APPLE", "ORANGE", "GRAPE" 
    TheType = "Fruit"

  case "VOLVO", "HYUNDAI"
    TheType = "Car"  

  case "CHRISTMAS", "THANKSGIVING" 
    TheType = "Holiday"

End Select
'~~~ColumnB = TheType

请注意，带有'~~~的行需要一些工作来读/写列。

它可能真的很大......如果是这样，你可能想要使用数据库。