如果单元格包含WORD，则将WORD提取到另一个单元格- Excel/VBA

Sub ExtractWord()
    Dim sourceCell As Range
    Dim targetCell As Range
    Dim text As String
    Dim word As String
    
    ' 设置源单元格和目标单元格
    Set sourceCell = Range("A1")
    Set targetCell = Range("B1")
    
    ' 获取源单元格的文本
    text = sourceCell.Value
    
    ' 查找并提取WORD
    word = ExtractWordFromText(text)
    
    ' 将提取的WORD写入目标单元格
    targetCell.Value = word
End Sub

Function ExtractWordFromText(text As String) As String
    Dim words() As String
    Dim word As String
    
    ' 按空格分割文本为单词数组
    words = Split(text, " ")
    
    ' 遍历单词数组，找到包含"WORD"的单词
    For Each word In words
        If InStr(1, word, "WORD", vbTextCompare) > 0 Then
            ExtractWordFromText = word
            Exit Function
        End If
    Next word
    
    ' 如果没有找到包含"WORD"的单词，则返回空字符串
    ExtractWordFromText = ""
End Function