VBAを使用する日付を含む列のテキストから列へ

Question

日付を含む列を現在の日付形式ではないテキストから列に変換しようとしています。私はExcelで簡単にこれを行うことができます。しかし、VBAを適切に行うための課題に直面しています。

私は複数のコードを試しました。ただし、列の一部のセルのみを日付形式に変換していますが、すべてを変換していません。

ご協力いただければ幸いです。このようにそれを作る、とにかく

With ActiveSheet.UsedRange.Columns("B").Cells 
.TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat) 
.NumberFormat = "yyyy-mm-dd" 'change to any date-based number format you prefer the cells to display 
End With 

Answer 1

：以下

は、私が使用していたコードである

Option Explicit 

Public Sub TestMe() 

With ActiveSheet.Range("B:" & lastRow(column_to_check:=2)) 

    .TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat) 
    .NumberFormat = "yyyy-mm-dd" 
End with 
End Sub 

Public Function lastRow(Optional str_sheet As String, Optional column_to_check As Long = 1) As Long 

    Dim shSheet As Worksheet 

     If str_sheet = vbNullString Then 
      Set shSheet = ThisWorkbook.ActiveSheet 
     Else 
      Set shSheet = ThisWorkbook.Worksheets(str_sheet) 
     End If 

    lastRow = shSheet.Cells(shSheet.Rows.Count, column_to_check).End(xlUp).Row 

End Function 

LASTROW機能はcolumn_to_checkの最後の行を返します。あなたの場合、2番目の列。