変数を使って一度にまとめて日付の形式に変換します。
B列に日付に変換したデータを入れていきます。
VBAコードは次の通りです。
Sub 日付変換()
Dim a As Integer
a = 1
Do Until Cells(a, 1).Value = “”
Cells(a, 2).Value = Mid(Cells(a, 1).Value, 2, 2) + 1988 & “/” & Mid(Cells(a, 1).Value, 5, 2) & “/” & Right(Cells(a, 1).Value, 2)
a = a + 1
Loop
End Sub
前回のコードのCells(1,3)の列部分、つまり1を変数aに置き換えています。
実行後の画面です。
