如何使用VBA在Excel中根据关键字对文本字符串进行分类？

在Excel中使用VBA根据关键字对文本字符串进行分类的方法如下：

打开Excel并创建一个新的工作表。
在第一列中输入要分类的文本字符串。
在第二列中输入关键字列表，每个关键字占一行。
在VBA编辑器中打开该工作表的代码窗口（按下Alt + F11，选择工作表，然后右键单击并选择“查看代码”）。
在代码窗口中输入以下VBA代码：

Sub CategorizeStrings()
    Dim rngStrings As Range
    Dim rngKeywords As Range
    Dim cellString As Range
    Dim cellKeyword As Range
    Dim category As String
    
    ' 设置要分类的文本字符串范围
    Set rngStrings = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 设置关键字列表范围
    Set rngKeywords = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    
    ' 循环遍历每个文本字符串
    For Each cellString In rngStrings
        ' 重置分类
        category = ""
        
        ' 循环遍历每个关键字
        For Each cellKeyword In rngKeywords
            ' 检查文本字符串是否包含关键字
            If InStr(1, cellString.Value, cellKeyword.Value, vbTextCompare) > 0 Then
                ' 设置分类为关键字
                category = cellKeyword.Value
                Exit For
            End If
        Next cellKeyword
        
        ' 将分类结果写入下一列
        cellString.Offset(0, 1).Value = category
    Next cellString
End Sub