宏转换日期格式Excel VBA

Question

我有一个包含一个工作表的Excel工作簿，一些列包含2种不同格式的日期，例如2015年11月5日，25-03-2015 ...我想创建一个宏，它将转换日期格式片。

如果日期是这种格式的日 - 月 - 年，如17-11-2016，我想将其转换为此格式的月/日/年，如2016年11月17日。我是VBA的新手，我试图创建一些宏但没有成功。这是我的代码

Sub Convert_Date()

Dim lastrow As Long
Dim Yr As Long
Dim Mnth As Long
Dim Dy As Long
Dim x As Date

lastrow = workbooks("Report").Sheets("Backlog").Cells(Rows.Count, 1).End(xlUp).Row

 For i = 2 To lastrow
        If Sheets("Backlog").UsedRange.Cells Like '##-##-####' 
        Then Yr = right(Cells,4)
        Mnth = mid(dateStr,3,5)
        Dy = left(Cells,2)
        x = DateSerial(Yr,Mnth,Dy)
        x = DateSerial(Mnth,'/',Dy,'/',Yr)
    Next i

End Sub

有什么建议吗？非常感谢你。