Question

excel2007中用vlookup函数查找到一个值后能不能转换为值,vlookup公式不再存在。

excel2007中用vlookup函数查找到一个值后能不能转换为值,vlookup公式不再存在。
比如A1、B1列是序号,C1列都是ABC123，在D1列输入 =vlookup(A1,B:C,2,0)返回值 ABC123后，怎么才能让公式自动消失只留下这个值？

Answer 1

这些值是用公式计算得出来的，它不可能自动转换为数值。如只需要数值：

1. 手动复制，并选择性粘贴，选“数值”，可以将数值替换原来的公式，这样公式也就不再存在了。

2. 利用宏来进行“选择性粘贴”，原理和上面一样。

3. 整个计算过程用宏来代替，这样也就不存在公式的问题了。
   

追问

请问这样的效果能实现吗？

追答

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Range("D1") = "查无此数"
For i = 1 To Range("B65536").End(xlUp).Row
If Range("B" & i) = Range("A1") Then
Range("D1") = Range("C" & i)
Exit For
End If
Next
End If
End Sub
上面代码代替公式：=vlookup(a1,b:c,2,0)，你根据自己的需要做修改。

追问

谢谢，我试试看。

你好，这段代码输入到单元格里面，什么都没有发生。

加上等号，它说我键入的公式有错

追答

按Alt+F11打开VB编辑器，选择左侧相应的工作表，然后在右侧代码区内粘贴前面的代码。此代码只检测A1单元格内容的变化。

追问

好的，谢谢，我试试

什么都没有诶

不是我要的效果，不过还是谢谢你了。

Answer 2

复制D1，然后在D1单击鼠标右键，“选择性粘贴”为“数值”。

追问

这个我会，但我需要自动的变化。