Question

根据单元格数值范围返回值 vba

=LOOKUP(Q3,{0,1,100,500,1000,2000,3000,5000,8000,15000,50000,200000},{"",1,2,3,4,5,6,7,8,9,10})

该R列根据Q列数据所在范围返回值，但是公式很容易被删，希望用VBA代码实现，请教高手。

Answer 1

首先，你两组数的个数都不一样呀，你不小于200000对应多少？ 例如是11
以下代码是单元格事件完成，即在Q列输入，在R列同行得到值，
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 And Target.Count = 1 Then
Target.Offset(, 1) = Application.Lookup(Target.Value, Array(0, 1, 100, 500, 1000, 2000, 3000, 5000, 8000, 15000, 50000, 200000), Array("", 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11))
End If
End Sub

Answer 2

后面两组数个数不一样。