直到循环语法错误vba excel

Question

我正在尝试编写此模块以从下一个单元格中的 % 计算字母等级并循环遍历行直到该行为空。 这段代码的语法有什么问题？ 我收到错误：运行时错误 438：对象不支持此属性或方法在Average = Cells(i, 6).Valve

Sub Grade()
Dim Average As Double
Dim i As Integer

i = 3

Do Until IsEmpty(Cells(i, 6))

Average = Cells(i, 6).Valve
Average = Average * 100

If (Average <= 60) Then
    Cells(i, 7).Valve = ("E")
End If
If (Average <= 70) Then
    Cells(i, 7).Valve = ("D")
End If
If (Average <= 80) Then
    Cells(i, 7).Valve = ("C")
End If
If (Average <= 90) Then
    Cells(i, 7).Valve = ("B")
End If
If (Average <= 100) Then
    Cells(i, 7).Valve = ("A")
End If

i = i + 1
Loop

End Sub

Answer 1

改变

Dim Average As Double
i As Integer

到

Dim Average As Double
Dim i As Integer

or

Dim Average As Double, i As Integer

or

Dim Average As Double, _
i As Integer

您的代码需要做更多的工作。 使用这样的东西：

Sub Grade()
Dim Average As Double
Dim i As Integer

i = 3

Do Until IsEmpty(Cells(i, 7))

    Cells(i, 6).Value = Average
    ' Perhaps the above should be 
    ' Average = Cells(i,6).Value

    If (Average < 60) Then
        Cells(i, 7).Valve = ("E")
    End If
    If (Average < 70) Then
        Cells(i, 7).Valve = ("D")
    End If
    If (Average < 80) Then
        Cells(i, 7).Valve = ("C")
    End If
    If (Average < 90) Then
        Cells(i, 7).Valve = ("B")
    End If
    If (Average < 100) Then
        Cells(i, 7).Valve = ("A")
    End If

    i = i + 1
Loop

End Sub

Answer 2

只是对@zedfoxus 帖子的一个想法

单行 ifs 不需要结束 if

Sub Grade()
Dim Average As Double
Dim i As Long

i = 3

Do Until IsEmpty(Cells(i, 7))

    Average = Cells(i, 6).Value
    Average = Average * 100    
    If (Average < 60) Then Cells(i, 7).Value = ("E")
    If (Average < 70) Then Cells(i, 7).Value = ("D")
    If (Average < 80) Then Cells(i, 7).Value = ("C")
    If (Average < 90) Then Cells(i, 7).Value = ("B")
    If (Average < 100) Then Cells(i, 7).Value = ("A")

    i = i + 1
Loop

End Sub

尽管如此，这是我对这个问题的看法。 我已经使用二维数组并利用工作表函数 Vlookup 组合了一个压缩例程。 这是有效的，因为它会找到最接近的东西（当您使用数字范围时很有用）

Sub Grade()
Dim Average As Double, i As Long, MyArr As Variant
MyArr = Array(Array(60, "E"), Array(70, "D"), Array(80, "C"), Array(90, "B"), Array(100, "A"))
i = 3
Do Until IsEmpty(Cells(i, 7))
    Average = Cells(i, 6).Value * 100 'Why * 100? Anyway just copied what you have done in your code
    Cells(i, 7).Value = Application.WorksheetFunction.VLookup(Average, MyArr, 2)
    i = i + 1
Loop
End Sub

最后，因为Average变量只使用一次，所以它并不真的需要在那里（虽然它可以被认为与MyArr相同，但它太臃肿而无法包含在Vlookup中，它会变得难以阅读），你可以删除它并在 Vlookup 中引用它的构成来进一步压缩代码，最后，我们可以通过使用 for next 循环并轮询到最后一行数据来删除i=3和i=i+1 ，如下所示：

Sub Grade()
Dim i as long, MyArr As Variant
MyArr = Array(Array(60, "E"), Array(70, "D"), Array(80, "C"), Array(90, "B"), Array(100, "A"))
For i = 3 To Range("G" & Rows.Count).End(xlUp).Row
    Cells(i, 7).Value = Application.WorksheetFunction.VLookup(Cells(i, 6).Value * 100, MyArr, 2)
Loop
End Sub

我不知道你为什么要乘以 100 而我没有你的测试数据。 我制作了自己的测试数据，但必须删除 *100 才能使其工作，我的数据在 F 列中。

40  
50  
60  E
65  E
70  D
75  D
80  C
85  C
90  B
95  B
100 A

这是我使用的代码：

Sub Grade2()
Dim i As Long, MyArr As Variant
MyArr = Array(Array(60, "E"), Array(70, "D"), Array(80, "C"), Array(90, "B"), Array(100, "A"))
For i = 3 To Range("F" & Rows.Count).End(xlUp).Row
    Cells(i, 7).Value = Application.WorksheetFunction.VLookup(Cells(i, 6).Value, MyArr, 2)
Next
End Sub

Answer 3

我想知道您是否想使用公式而不是 VBA。

Vlookup 可以做到这一点。 如下，希望这有帮助。