問題が分からないです。

Question

解決いたしましたありがとうございました、、、、、、、、、、、、、

Comments

[daisuke0925]

ありがとうございます。

Answer 1

上手く動作しない理由：
１．B列を検索するべきなのに、C列を検索している
２．hyouka を書き込む処理がどこにもない。

これらを解決したコードが下記です。

Sub 練習5()
    Dim i As Integer
    i = 8
    
    Do
       Select Case Cells(i, 2).Value '修正
             Case 90 To 100
                         hyouka = "AA"
                 Case 80 To 89
                         hyouka = "A"
                 Case 70 To 79
                         hyouka = "B"
                 Case 60 To 69
                         hyouka = "C"
                 Case Else
                         hyouka = "D"
                                      
        End Select
        Cells(i, 3).Value = hyouka '追加
        i = i + 1
    Loop Until Cells(i, 2).Value = ""  '修正
End Sub