VBA 常量是相对于 VBA 变量 的概念。不同于变量，常量一旦赋值，其值不能改变。在程序运行整个过程，其值一直保持不变，如果强行赋值新的数据，VBA 会报错。

使用VBA 常量，可以使一个值用更加简便的方式表达，提高编程效率。例如，使用 Pi 代表”3.14159…”，在代码里直接使用 Pi 代表 π 值。

‘ 设置关键词和它们的类别
Dim keywordsList As Variant
keywordsList = Array(“苹果”, “香蕉”, “橙子”, “白菜”, “生菜”, “黄瓜”)
Dim categoryList As Variant
categoryList = Array(“水果”, “水果”, “水果”, “蔬菜”, “蔬菜”, “蔬菜”)
‘ 获取关键词所在列
Dim keywordsRange As Range
Set keywordsRange = Range(“A1:A10”) ‘ 将这里的范围替换为你的关键词所在列的范围
‘ 设置类别所在列
Dim categoryColumn As Range
Set categoryColumn = Range(“B1:B10”) ‘ 将这里的范围替换为你的类别所在列的范围
‘ 循环遍历每一个关键词
Dim keywordCell As Range
For Each keywordCell In keywordsRange
‘ 获取关键词在关键词列表中的索引
Dim keywordIndex As Long
keywordIndex = Application.Match(keywordCell.Value, keywordsList, 0)
‘ 如果找到了匹配的关键词，则将对应的类别写入类别列中
If Not IsError(keywordIndex) Then
categoryColumn.Cells(keywordCell.Row, 1).Value = categoryList(keywordIndex)
End If
Next keywordCell
End Sub