将文本日期与星期几缩写转换为Excel日期格式

Question

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

Thu 8/24/2017

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

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

Answer 1

使用：

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

然后以任何你想要的方式格式化

Answer 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

Answer 3

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

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

＆＃34; 2017年8月24日星期四＆＃34;将成为＆＃34; 42971＆＃34;在一般格式下，＆＃34; 8/24/2017 2017＆＃34;短日期格式或＆＃34; 2017年8月24日星期四＆＃34;长日期格式。