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