Excel中：有没有办法更换电池串的特殊组成部分？

Question

我有一个字符串人员包含列以前培训课程的Excel导出。例如：First Name|Last Name|Training title|January 2018 to February 2018

由于从中收集数据的非强制性的表单字段，许多字符串没有结束的月份值，这样January 2018 to我试图找到一个公式来找到to（因此后面没有别的）结束所有字符串，删除这部分孤儿字符串，因此它看起来像January 2018。

查找和替换是无用的，因为它也取代了价值时，有一个结束月/年。替补似乎是个不错的路要走，但我已经失败试图找到合适的结构式。

Answer 1

测试它是否在右to结束，如果是这样，然后用左忽略它：

=IF(RIGHT(A1,2) = "to",LEFT(A1,LEN(A1)-2),A1)

Answer 2

这是VBA。不要忘记检查末多余的空格。如果有任何使用TRIM。

Option Explicit

Sub Remove()

    Dim Lastrow As Long, i As Long

    'Change Sheet if needed
    With ThisWorkbook.Worksheets("Sheet1")

        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To Lastrow

            If Right(.Range("A" & i).Value, 2) = "to" Then
                .Range("A" & i).Value = Left(.Range("A" & i).Value, Len(.Range("A" & i).Value) - 3)
            End If
        Next i


    End With

End Sub