Excelで遊んでました。日付の表示。

Option Explicit

Sub 日付フォーマット()

Dim StartLine As Integer
Dim StartCol As Integer
Dim Str As String
Dim w As String
Dim i As Integer
Dim Strarry() As String


StartLine = 3
StartCol = 2
i = 0

Do While True
    Str = Worksheets("Sheet1").Cells(StartLine + i, StartCol)
    If Len(Str) = 0 Then
        Exit Do
    End If
   
    Strarry() = Split(Str, "/")
    
    If Len(Strarry(1)) >= 3 Then
        w = Right(Strarry(1), 2)
        Strarry(1) = " " & w
    End If
    
    If Not Len(Strarry(2)) >= 3 Then
        Strarry(2) = " " & Strarry(2)
    End If
    
    Cells(StartLine + i, StartCol + 1) = Strarry(0) & "/" & Strarry(1) & "/" & Strarry(2)
    i = i + 1
    
Loop
    
End Sub

===========================================

月の日付が少しおかしかったので、Right関数で文字列を処理しました。今度は

多分良いと思います。(-_-;)