Sub NewThing()
Dim Cell As Range
For Each Cell In Worksheets("Question 2").Range("B3:B11").Cells
If Cell.Value >= 90000 Then
Range("C3:C11").Value = Cell.Value * 1.5
Else
Range("C3:C11").Value = Cell.Value * 1.1
End If
Next Cell
End Sub
当我进入 vba 编辑器时,我可以看到 C3:C11 中的值循环,我做错了什么?它从 B11 中获取最后一个值并将其用于整个列。请帮忙。