テキスト形式の日付と曜日の省略形を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」になり、「2017年8月24日」短い日付形式または「2017年8月24日木曜日」の下に長い日付形式で入力します。