Excel VBA-データクリーニング - 日付の文字列

Question

最終的にNCAAメンズバスケットボールのブラケットプレースメントを作成するには、データテーブルを消去する必要があります。残念ながら、私が与えられたデータの一部はレコード（つまり10-20）を10月20日に変換しましたが、他のほとんどのレコードはWin-Lossフォーマット（つまり20-10）のままです。誰でも、VBAのワークシートの日付フォーマット（10月20日）を意図した勝敗フォーマット（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 

前：

以降：

EDIT番号を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