将带有星期几缩写的文本日期转换为 excel 日期格式答案

【问题标题】：convert text date with day of week abbreviation to excel date format将带有星期几缩写的文本日期转换为 excel 日期格式
【发布时间】：2017-09-08 14:12:45
【问题描述】：

我试图弄清楚如何从单元格中删除星期几的缩写，然后将文本字符串日期转换为 excel 日期格式。这是格式始终相同的示例。

2017 年 8 月 24 日星期四

如果我手动删除星期几字母，然后在 excel 中使用文本到列功能，它可以很好地转换为日期格式。文本到列功能不适用于包含日期缩写的单元格。

我正在寻找从多个列中删除这些缩写的最快方法（VBA 或公式）。查找并替换为“”将是一个选项，但我希望减少手动和耗时，因为我将定期使用此电子表格。提前感谢您的帮助！

【问题讨论】：

标签： excel

【解决方案1】：

用途：

=--MID(A1,FIND(" ",A1)+1,LEN(A1))

然后按你想要的方式格式化它

【讨论】：

太棒了。谢谢！

【解决方案2】：

您可以通过忽略 Text-to-Columns 中的第一个字段来就地执行此操作。

With Worksheets("sheet3")
    With .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
        .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:=False, _
            FieldInfo:=Array(Array(1, 9), Array(2, 3))
    End With
End With

【讨论】：

【解决方案3】：

这会将您的文本转换为 excel 日期格式：

=DATEVALUE(MID(B2,4,10))

“Thu 8/24/2017”在一般格式下将变为“42971”，在短日期格式下变为“8/24/2017”或在长日期格式下变为“Thursday, August 24, 2017”。

【讨论】：