[已解决]替换指定单元格公式为计算的数值

dacaichong

工作表中有很多单元格，我需要吧用vlookup公式的单元格替换为 他计算出来的结果！

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-19 21:37

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim Rng As Range
   
3. For Each Rng In Target
   
4.     If Rng.HasFormula Then
   
5.         If InStr(UCase(Rng.Formula), "VLOOKUP") <> 0 Then Rng.Value = Rng.Value
   
6.     End If
   
7. Next
   
8. End Sub
   

复制代码

可以再修改下提高效率。

跳转到最佳答案楼层

放浪形骸

什么意思？
就是说把公式替换成公式计算出来的数据么？

daniel_zeng

你可以把你用vlookup算出来的数值选中，复制，然后选择性粘帖选数值就可以了！

dacaichong

这些有公式的单元格不连续，有些公式不能替换，只能替换指定的！
说把公式替换成公式计算出来的数据

放浪形骸

dacaichong 发表于 2011-4-19 20:41
这些有公式的单元格不连续，有些公式不能替换，只能替换指定的！
说把公式替换成公式计算出来的数据

那你怎么指定你的单元格？
通过单击还是什么形式？

dacaichong

公式内容，可以指定是那些函数的

放浪形骸

dacaichong 发表于 2011-4-19 20:55
公式内容，可以指定是那些函数的

那你的意思就是说把特定的函数都替换成数值咯？

dacaichong

没错就是这个意思

dacaichong

有没有办法啊？

放浪形骸

指定的函数VLOOKUP是公式最外面的函数是这个还是说只要公式里含有这个函数？