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

Question

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

2017年8月24日星期四

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

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

Answer 1

采用：

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

然后以任何方式格式化

Answer 2

您可以通过忽略“文本到列”中的第一个字段来就地执行此操作。

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

Answer 3

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

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

一般格式的“星期四2017年8月24日”将变为“ 42971”，短日期格式将变为“ 8/24/2017”，长日期格式将变为“ 2017年8月24日，星期四”。