Excel VBA 日付を表す数値や文字列データを日付データに変更する

Sub 日変換1()
Dim 行 As Long
Dim i As Long
 行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To 行
 Cells(i, 1).Value = Left(Cells(i, 1).Text, 4) & "/" & Mid(Cells(i, 1).Text, 5, 2) & "/" & Right(Cells(i, 1).Text, 2)
Next i
End Sub

3行目【Dim i As Long】
繰り返し処理で使用されるセルの行番号を格納するカウンター変数「i」を長整数型(Long)で宣言します。

4行目【行 = Cells(Rows.Count, 1).End(xlUp).Row】
Cells【ｾﾙｽﾞ】プロパティでA列のRows【ﾛｳｽﾞ】コレクションのCount【ｶｳﾝﾄ】プロパティで参照したセルの最終行からRange【ﾚﾝｼﾞ】オブジェクトのEnd【ｴﾝﾄﾞ】プロパティでセルの最終行から上方向にデータが入力されている最終行に移動して、Row【ﾛｳ】プロパティでその行番号を取得し、変数「行」に代入します。つまり。A列のデータが入力されている最終行番号を
変数「行」に代入します。

5行目【For i = 2 To 行】
For Next【ﾌｫｰﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。カウンター変数「i」に2から変数「行」に格納されているA列のデータが入力されている最終行番号を繰り返し処理の中で順に代入します。

6行目【Cells(i, 1).Value = Left(Cells(i, 1).Text, 4) & “/” & Mid(Cells(i, 1).Text, 5, 2) & “/” & Right(Cells(i, 1).Text, 2)】
文字列の左端から指定した文字数分の文字列を取得するLeft【ﾚﾌﾄ】関数を使用して取り出し元の文字列を表す第一引数にCells【ｾﾙｽﾞ】プロパティで参照したセルの値をRange【ﾚﾝｼﾞ】オブジェクトのText【ﾃｷｽﾄ】プロパティで取得し、左端から取り出す文字数を指定する第二引数に4を設定して、文字列の左端から4文字を取得(2018を取得)し、文字列を連結するアンパサンド「&」で「/」を連結します。次に、文字列の指定位置から指定文字数分の文字列を取得するMid【ﾐｯﾄﾞ】関数を使用して文字を取り出す開始位置を指定する第二引数に5を指定し、取り出す文字数を指定する第三引数に2を指定して、(201801の01を取得)文字列を連結するアンパサンド「&」で「/」を連結します。文字列の右端から指定した文字数分の文字列を取得するRight【ﾗｲﾄ】関数を使用して、右端から取り出す文字数を指定する第二引数に2を設定して、文字列の右端から2文字目を取得(20180101の01を取得)し、Cells【ｾﾙｽﾞ】プロパティで参照したA列の変数「i」行目のセルに代入します。つまり、セルのデータが20180101の文字列の場合2018/01/01に変換してそのセルに代入しています。

Sub 日変換2()
Dim 行 As Long
  行 = Cells(Rows.Count, 1).End(xlUp).Row
  Range("A2", "A" & 行).Replace ".", "/"
End Sub

2行目【行 = Cells(Rows.Count, 1).End(xlUp).Row】
Cells【ｾﾙｽﾞ】プロパティでA列のRows【ﾛｳｽﾞ】コレクションのCount【ｶｳﾝﾄ】プロパティで参照したセルの最終行からRange【ﾚﾝｼﾞ】オブジェクトのEnd【ｴﾝﾄﾞ】プロパティでセルの最終行から上方向にデータが入力されている最終行に移動して、Row【ﾛｳ】プロパティでその行番号を取得し、変数「行」に代入します。つまり。A列のデータが入力されている最終行番号を
変数「行」に代入します。

3行目【Range(“A2”, “A” & 行).Replace “.”, “/”】
Range【ﾚﾝｼﾞ】オブジェクトのReplace【ﾘﾌﾟﾚｲｽ】メソッドを使用して文字列の「.」を「/」に置換えます。