GP算出VBA

Sub 科目別GP()

'文字をアルファベットに置き換えても良い。
'数字は任意に変えて使う。

    Dim i As Integer
For i = 2 To 100
'2行目（横の向き）から。

If Cells(i, 2) = "秀" Then
    Cells(i, 3) = 4
ElseIf Cells(i, 2) = "優" Then
    Cells(i, 3) = 3
    
ElseIf Cells(i, 2) = "良" Then
    Cells(i, 3) = 2
    
ElseIf Cells(i, 2) = "可" Then
    Cells(i, 3) = 1
    
ElseIf Cells(i, 2) = "不可" Then
    Cells(i, 3) = 0
Else
    Cells(i, 3) = "-"
End If
Next i

これをマクロ有効のexcelで使うと便利である。