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

我有一个包含一个句子的单元格的excel文件。 在这个句子中有一个单词,我希望我的单元格在这个单词之后被分割。这个单词使得分割应该被自动删除,如果它工作的话,如果它不能停留的话。

我怎样才能做到这一点?

说这个词是qwerty 。 之前:

在这里输入图像说明

select你想要处理的单元格并运行这个短的macros:

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 

实现:

在这里输入图像说明