Excel VBA -查找关键字，然后删除右侧的所有内容

Question

我想加入一个下标，查找" 2014“和/或变体'2 0 1 4‘，删除right的所有文本，而保留这2种2014年的变体。

底线-我想保留日期，把其他的东西移到右边。我的电子表格中有另一列，它有这些“许可类型”。

下面是我的电子表格中的C列的一个例子：

05/07/2014电气许可证费$174.58 $0.00

0 5/0 712 0 1 4电气许可证费$23.83 $0.00

05/07/2014机械许可证费$102.00 $102.00

0512 9/2 01 4水管许可证费$50.00 $50.00

下面是我一直使用的代码示例：

Columns("C:C").Select
Selection.Replace What:="2014*:", Replacement_
:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False

还有，有什么办法可以解决这些愚蠢的约会吗？我的电子表格是PDF到Excel转换的结果……这就是为什么日期是这样的。

非常感谢你们的帮助！

Answer 1

尝试：

Selection.Replace "2014*", "2014"
Selection.Replace "2 0 1 4*", "2014"

还有你想要的任何其他变体。即将2014年及其右边的任何案文改为2014年。

编辑：添加了一个更好的解决方案(我认为)。

此外，如果您想删除所有其他内容(1而不是斜杠)，您可以尝试这样的方法：

For Each cell In Range("C:C")
    Dim month As String
    Dim day As String
    Dim year As String
    If cell.Value <> "" Then
        cell.Replace " ", ""
        month = Left(cell.Value, 2)
        day = Mid(cell.Value, 4, 2)
        year = Mid(cell.Value, 7, 4)
        cell.Value = month & "/" & day & "/" & year
    End If
Next