Excel VBA-數據清理 - 日期到字符串

Question

我需要清理數據表以最終爲NCAA男子籃球創建支架佈局。不幸的是，我獲得的一些數據已將記錄（即10-20）改變爲10月20日，而大多數其他記錄仍以Win-Loss格式（即20-10）保存。任何人都可以提供關於如何將日期格式（10月20日）轉換回VBA工作表的預期雙贏格式（10-20）的建議？

任何幫助將不勝感激，因爲我是新手，並且必須使用VBA來解決這個問題。

Answer 1

選擇要轉換並運行此短宏小區：

Sub fixdata() 
    Dim v As Variant 

    For Each r In Intersect(ActiveSheet.UsedRange, Selection) 
     v = r.Value 
     If v <> "" And IsDate(v) Then 
      r.Value = "'" & Day(v) & "-" & Month(v) 
     End If 
    Next r 
End Sub 

前：

後：

編輯＃ 1：

更正：

Sub fixdata() 
    Dim v As Variant 

    For Each r In Intersect(ActiveSheet.UsedRange, Selection) 
     v = r.Value 
     If v <> "" And IsDate(v) Then 
      r.Value = "'" & Month(v) & "-" & Day(v) 
     End If 
    Next r 
End Sub