select大小写错误输出和不匹配错误

虽然我已经编写了一些其他的东西，但我对VBA Excel来说还是比较新的。 我试图交叉比较1和0之间的一列数字，称为分数，结果可以是取决于数值的4之一。 然而，我只能得到相同的结果（1），无论我如何编码（我试过只使用“到”或只有“<> =”），但没有任何工作。 我也似乎无法让它通过我的专栏，一次只在一个单元格（每当我扩大范围“B2：B7”它给我一个不匹配的错误。

我想要的是它实际上给我的结果，我正在寻找和工作通过一列或单元格。

感谢您的时间

这里是代码：

Sub Vertical_Analysis() Sheets("Vertical").Select Dim score As Integer score = Range("B2").Value Dim result As String Select Case score Case Is >= 0.15 result = "1" Case 0.11 To 0.14 result = "0.6" Case 0.08 To 0.1 result = "0.3" Case Is <= 0.07 result = "0" End Select Range("B21").Value = result End Sub 

Answer 1

第一个score需要是一个双整数。

然后循环使用For Each。

最后一部分.Range("B21").Offset(i).Value = result将每个结果向下移动一行，以便它们不会相互replace。

尝试这个：

 Sub Vertical_Analysis() Dim score As Double, result As String Dim Rng As Range, i As Long i = 0 With Sheets("Vertical") For Each Rng In .Range("B2:B7") score = Rng.Value Select Case score Case Is >= 0.15 result = "1" Case 0.11 To 0.14 result = "0.6" Case 0.08 To 0.1 result = "0.3" Case Is <= 0.07 result = "0" End Select .Range("B21").Offset(i).Value = result i = i + 1 Next Rng End With End Sub