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

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