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

dacaichong

公式里有这个函数

dacaichong

公式里有这个函数

dacaichong

公式里有这个函数

放浪形骸

dacaichong 发表于 2011-4-19 21:14
公式里有这个函数

只要公式里有这个函数就替换掉么？
那好的

兰色幻想

说这么多，不如上传一个表格

dacaichong

是的是的，给我个办法吧

无聊的疯子

看都看累了,来个附件多省事的!!

dacaichong

抱歉啊，数据涉密啊@

放浪形骸

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

复制代码

这个是对所选中的区域进行判断，如果存在VLOOKUP函数，那么就替换掉。
这个函数放在你需要进行替换的表中。
使用前资料先进行备份

放浪形骸

还有一种方法，就是不需要每次都修改
设置一个按钮，需要的时候遍历表内所有的单元格，然后进行替换就可以了。