求助请问如何让输入的数字自动转换成别的数值以作计算

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target = 1 Then
Target = 3.4
End If
Application.EnableEvents = True
End Sub

就是两个数有函数关系呗，那为什么不另开一个单元格放这个3.4

你输的1，那么这个单元格的值就是1，不用vba没有任何办法让它的值变成3.4，而用了vba的话一旦改了之后就不能撤销了，多开一个单元格（或者直接把这个对应关系的公式融入到现有公式里）就能解决的事情非要整这么麻烦还要有代价吗？自己斟酌

另外做个库，1等于3.4之类的，用vlookup转化就好