从excel中的特定单词开始拆分单元格

Question

我有一个excel文件，其中包含一个包含句子的单元格。在这句话中有一个单词，我希望我的单元格在这个单词之后被分割。如果这个单词有效，那么这个单词应该被自动删除。如果没有，它可以保留。

我该怎么做？

Answer 1

说出这个词是 qwerty 。之前：

选择您要处理的单元格并运行此短宏：

Sub ytrewq()
    Dim qwerty As String, r As Range
    Dim v As String

    qwerty = " qwerty "

    For Each r In Selection
        v = r.Text
        If InStr(1, v, qwerty) > 0 Then
            r.Value = Split(v, qwerty)(0)
            r.Offset(0, 1).Value = Split(v, qwerty)(1)
        End If
    Next r
End Sub

实现：