Excel宏（改变选择的单元格的值如果大于或小于）

Question

我有一项任务需要完成，它非常耗时，搜索一些解决方案，但它不起作用。

我有这个工作簿需要在每个单元格中编辑。 如果我选择像B2至B8的范围内，并且其内容是

B2 = 70, B3 = 75, B4 = 80, B5 = 85, B6 = 90, B7 = 95, B8 = 100

和条件是如果细胞是<=100 but >=96 =A, <=95 but >=91 =B, <=90 but >=86 =C, <=85 but >=81 =D, <=80 but >=76 = E, <=75 but >=71 =F And <=70 =G.

所以每个单元将改变为例如B2 = 70现在将变为70 （G）与“（）”。

等B2至B8

B2 = 70(G), B3 = 75(F), B4 = 80(E), B5 = 85(D), B6 = 90(C), B7 = 95(B), B8 = 100(A)

Answer 1

有了自己的价值观选择运行该宏：

Sub transform() 
Dim v, a As String 
For Each v In Selection 
Select Case v 
    Case Is <= 70 
    a = "G" 
    Case Is <= 75 
    a = "F" 
    Case Is <= 80 
    a = "E" 
    Case Is <= 85 
    a = "D" 
    Case Is <= 90 
    a = "C" 
    Case Is <= 95 
    a = "B" 
    Case Is <= 100 
    a = " A" 
End Select 
v.Value = v & "(" & a & ")" 
Next 
End Sub