vba 主题

Attribute VB_Name = "create"
Sub 生成()
    Dim i As Integer
    For i = 2 To 80
        t = Sheets(1).Cells(i, 2).Value   '取得成绩
        If t Then
            If t >= 90 Then
                j = "优秀"
            ElseIf t >= 80 Then
                j = "良好"
            ElseIf t >= 70 Then
                j = "一般"
            ElseIf t >= 60 Then
                j = "及格"
            Else
                j = "不及格"
            End If
            Sheets(1).Cells(i, 3) = j
        End If
    Next

End Sub

Attribute VB_Name = "delete"
Sub 删除()
    Dim i As Integer
    For i = 2 To 80
        Sheets(1).Cells(i, 3) = Empty
    Next
End Sub