小编Bri*_*ord的帖子

我正在尝试提取数字等级值并将它们转换为一个字符串，该字符串将代表等级，A > 90，B > 80，等等。我计划使用 for 循环从电子表格中收集值，然后使用 if then 语句来分配字母名称。这是我到目前为止的代码。

 For i = 1 To 11
' Pull Grade numerical value
    Grade = Cells(2 + i, 16).Value
' Assign Numerical Value a script Grade
    If Grade > 60 Then
        Letter = "D"
    If Grade > 70 Then
        Letter = "C"
    If Grade > 80 Then
        Letter = "B"
    If Grade > 90 Then
        Letter = "A"
    Else
        Letter = "F"
    Exit
' Print the letter grade
    Cells(2 + i, 17).Text …