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

dacaichong

十分感谢，我先用用。太谢谢了

放浪形骸

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
   

复制代码

可以再修改下提高效率。

liuts

放浪形骸 发表于 2011-4-19 21:37
可以再修改下提高效率。

Rng.Value = Rng.Value
学习