查找/替换正确格式化日期单元格的宏

Question

我正在使用将某些数据导出为 CSV 格式的应用程序。但是，日期列在原始数据中的格式不正确，并且包含不必要的年份尾随字符，这会阻止 Excel 在导入后正确解释它。

如果我在列上手动运行查找和替换，这些值会自动识别为日期。但是，如果我将操作记录为宏，然后再次运行，则会删除尾随字符，但列中的数据会保留为文本，而不是日期。

这是 VBA 代码：

Sub formatDate()

Columns("A:A").Select
Selection.Replace What:=" г.", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

日期的区域格式为DD.MM.YYYY。此外，如果我只是编辑任何结果单元格 (F2) 并按 Enter 键，Excel 会切换到正确的格式。

样本数据：

4 март 2017 г.
4 март 2017 г.
3 март 2017 г.
1 март 2017 г.
28 февруари 2017 г.
27 февруари 2017 г.
27 февруари 2017 г.
26 февруари 2017 г.
26 февруари 2017 г.

Answer 1

使用 TextToColumns 快速去除尾随字符并转换为日期。

使用固定 dd.mm.yyyy 格式的文本日期，

with selection
    .TextToColumns Destination:=.cells(1, 1), DataType:=xlFixedWidth, _
                   FieldInfo:=Array(Array(0, xlDMYFormat), Array(10, xlSkipColumn))
    .numberformat = "dd.mm.yyyy"
end with

看起来像日期的文本在日期之后和尾随文本之前显示一个空格，

With Selection
    .TextToColumns Destination:=.Cells(1, 1), DataType:=xlDelimited, ConsecutiveDelimiter:=True, _
                   Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:=False, _
                   FieldInfo:=Array(Array(1, xlDMYFormat), Array(2, xlSkipColumn))
End With

如果 TextToColumns 给您带来保加利亚月份名称方面的问题（VBA 非常以 US-EN 为中心），那么只需在现有代码中添加一行并可选择设置单元格格式。

with Selection
    .Replace What:=" г.", Replacement:=vbNullString, LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
    .value = .value2
    .numberformat = "dd.mm.yyyy"
end with

我在这里使用了Selection (not particularly recommended)，但您应该可以轻松转换。