Sub 元号_令和_平成_昭和_大正_明治を西暦に変換する()

    令和 = Range("B2")
    Range("C2") = (令和 + 18) + 2000
    
    平成 = Range("B3")
    Range("C3") = (平成 - 12) + 2000
    
    昭和 = Range("B4")
    Range("C4") = (昭和 + 25) + 1900
    
    大正 = Range("B5")
    Range("C5") = (大正 + 11) + 1900
    
    明治 = Range("B6")
    Range("C6") = (明治 - 33) + 1900

End Sub