VBA select case 練習

Sub demo()
' select case 練習
Dim card As String
Dim i As Integer

For i = 1 To 14
    card = Range("a" & i)
    Select Case card
    
    
    
    Case "j"
    Range("b" & i) = "一等獎"
    Case "q"
    Range("b" & i) = "二等獎"
    Case "k"
    Range("b" & i) = "三等獎"
    Case "a"
    Range("b" & i) = "四等獎"
    Case Else
    Range("b" & i) = "謝謝參與"
    End Select
Next
    
End Sub


'效果
1	謝謝參與
2	謝謝參與
3	謝謝參與
4	謝謝參與
5	謝謝參與
6	謝謝參與
7	謝謝參與
8	謝謝參與
9	謝謝參與
10	謝謝參與
j	一等獎
q	二等獎
k	三等獎
a	四等獎