excel - 确保 Excel 单元格内的有效日期

Question

我正在尝试准备一个信用卡交易列表，以便在 Excel 2010 中进行透视和进一步分析(满足个人需求)。问题是我的银行机构没有遵循标准的日期格式，所以有时日期会显示为 Jun. 1, 2013 , 有时作为 May 27, 2013 .第一个不被 Excel 识别为日期，因此它的 Pivot 不能在那个(月、季度等)上分组。列表中没有其他无法识别的日期。

有没有办法确保列中始终存在有效日期？

如果我在 .NET 中编码，一种选择是使用 ParseExact带有格式字符串 MMM. d, yyyy .

另一种选择是执行 If , 将任何字符串转换为日期，如下所示:

If Not TypeOf MyCell Is DateTime Then _
  MyCell.Value = CDate(MyCell.Value.Substring(0,3) &
                       MyCell.Value.Substring(3))

(这是 VB.NETish 伪语法，希望它有助于解释我的意图)。它假定无效日期将始终是一个带有点的字符串，由转换器删除 - 我可以接受。

我将如何在 Excel 中执行此操作？ 寻找最简单的方法。

Answer 1

假设您的日期在 A1 ，此公式会将其转换为时间序列格式:

=DATEVALUE(SUBSTITUTE(A1,".",""))

然后，您可以将其格式化为您想要的任何格式。

另一种选择是使用这个 UDF:

Function MorphDate(strDate As String) As Date
    Application.Volatile
    If VarType(strDate) <> 8 Then Exit Function
    Res = Replace(strDate, ".", "")
    MorphDate = Res
End Function

像这样使用: =MorphDate(A1) , 并将其格式化为您想要的任何格式。

截图: