Excel：有没有办法替换单元格字符串的特殊部分？

Question

我有一个 Excel 导出，其中有一列包含员工以前的培训课程。 例子： First Name|Last Name|Training title|January 2018 to February 2018

由于收集数据的非强制性表单字段，许多字符串没有结束月份值，例如January 2018 to 我正在尝试找到一个公式来查找所有带有to 的字符串结尾（因此后面没有其他内容）并删除该字符串的孤立部分，使其看起来像January 2018。

查找和替换是无用的，因为它还会在有结束月份/年份时替换值。替代似乎是一个不错的方法，但我未能尝试找到公式的正确结构。

Answer 1

测试是否以to结尾有right，如果是则用left省略：

=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