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

【问题标题】：splitting a cell starting from a specific word in excel从excel中的特定单词开始拆分单元格
【发布时间】：2016-03-04 10:33:01
【问题描述】：

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

我该怎么做？

【问题讨论】：

标签： excel split cell

【解决方案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

实现：

【讨论】：

喜欢样本数据！
@Jeeped 我的孙女帮忙处理数据！
您认为是否值得将v = r.Text 更改为v = Replace(r.Text, qwerty, qwerty, , , vbTextCompare) 以消除区分大小写？
@Jeeped 如果实际数据有 case 问题，您的建议将是必要的......更关心的是如果句子以 qwerty 开头或结尾，并且没有封装空格！............但这足以让用户开始。
严格来说（OP 并没有提供更多），但唯一真正的要求是字符串是 split 并且如果 qwerty 是第一个或最后一个，那么它实际上不会是 Split;只是被截断了。我认为你很安全。