エクセルVBA次のスクリプトが正しく

Question

をすべての日付を変換していない私が持っている問題があることである新しい列への値を分割し、日付

Dim StartString As String 
Dim DateValue As String 
Dim y As Integer 

Dim LastRow2 As Long 
With Sheets("DataSheet") 
LastRow2 = .Cells(.Rows.Count, "L").End(xlUp).Row 'find the last row on column L 
    .Columns(13).Insert Shift:=xlToRight 'add a new column to the right of column L 
    For i = 1 To LastRow2 'loop through rows 
     If InStr(1, .Cells(i, "L"), ",") Then 
      .Cells(i, "M").Value = Split(.Cells(i, "L"), ",")(1) 'split after comma 
      StartString = .Cells(i, "L").Value 
      DateValue = "" 
      For y = 1 To Len(StartString) 'loop to remove unwanted characters 
       Select Case Asc(Mid(StartString, y, 1)) 
        Case 47 To 57 
         DateValue = DateValue & Mid(StartString, y, 1) 
       End Select 
      Next y 
     .Cells(i, "M").Value = DateValue 'return the date 
     .Cells(i, "M").NumberFormat = "dd/mm/yyyy" 'format it correctly 
     End If 
    Next i 
End With 

にテキストを変換するために私を助けている別の質問から次のスクリプトを持っていますすべての場合に変換が成功しません。これは、新しい日付を時系列で並べ替える必要がある列ヘッダーとして使用するため、コードの次の段階で問題を引き起こします。どんな助けもありがとう！

以下も同様です（入力エラーとして黄色のセルは無視してください） 緑色のセルは正常に変換されたようですが、他の多くのセルは左上に小さな緑色のエラーインジケータが表示されていますコーナー。 ：

Answer 1

私は次のようにあなたのコードを交換してみてください、私は犯人を見つけたと信じて：

Sub foo() 
Dim StartString As String 
Dim DateValue As String 
Dim y As Integer 
Dim LastRow As Long 
With Sheets("Datasheet") 
LastRow = .Cells(.Rows.Count, "L").End(xlUp).Row 
    .Columns(13).Insert Shift:=xlToRight 
    For i = 1 To LastRow 
     If InStr(1, .Cells(i, "L"), ",") Then 
      .Cells(i, "M").Value = Split(.Cells(i, "L"), ",")(1) 
      StartString = .Cells(i, "L").Value 
      DateValue = "" 
      For y = 1 To Len(StartString) 
       Select Case Asc(Mid(StartString, y, 1)) 
        Case 47 To 57 
         DateValue = DateValue & Mid(StartString, y, 1) 
       End Select 
      Next y 
     .Cells(i, "M").Value = DateValue 
     End If 
     If .Cells(i, "M").Value <> "" Then 
      .Cells(i, "M").Value = CDate(.Cells(i, "M").Value) 
      .Cells(i, "M").Value = Format(.Cells(i, "M").Value, "dd/mm/yyyy") 
     End If 
    Next i 
End With 
End Sub 

Answer 2

私が処理することが容易に理解し、最も重要なことがあり、以下のコードを示唆して、あなたの例で提供したのと同様のデータでテストしてみましょう:)

Option Explicit 

Sub ExtractDate() 

    Dim DateValue As String, FinalDate As String 
    Dim I As Integer 

    Dim LastRow2 As Long 
    With Sheets("DataSheet") 

     LastRow2 = .Cells(.Rows.Count, "L").End(xlUp).Row 'find the last row on column L 
     .Columns(13).Insert Shift:=xlToRight 'add a new column to the right of column L 

     For I = 1 To LastRow2 'loop through rows 

      If InStr(1, .Cells(I, "L"), ",") Then 

       DateValue = Split(.Cells(I, "L"), ",")(1) 'split after comma 

       If IsNumeric(Left(DateValue,2)) Then 

        DateValue = Split(DateValue, "/")(1) & "/" & Split(DateValue, "/")(0) & "/" & Split(DateValue, "/")(2) 
        FinalDate = CDate(DateValue) 

        .Cells(I, "M").Value = Format(FinalDate, "dd/mm/yyyy") 
       End If 
      End If 

     Next I 

    End With 

End Sub