Sub 年齢を年代に置換変換する_Case版()

    For 行 = 2 To 7
    
        Select Case Cells(行, "A")
        
            Case 10 To 19
            
                Cells(行, "A") = "10代"
            
            Case 20 To 29
            
                Cells(行, "A") = "20代"
            
            Case 30 To 39
            
                Cells(行, "A") = "30代"
        
        End Select
    
    Next 行

End Sub