將帶有星期幾縮寫的文本日期轉換為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日，星期四”。