使用vba删除函数调用

Question

我试图在返回值之后删除函数调用。

例如：

function testFunc(x as integer)
testfunc = x
end function

在调用这个函数之后，我希望函数被调用的单元格值等于x，而不是=testFunc(x)。这是可能的吗?或者对函数的限制是否会限制这种类型的操作

Answer 1

试试这个短宏：

End Function
Sub FunctionReplacer()
   Dim r As Range

   For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
      If InStr(1, LCase(r.Formula), "testfunc") > 0 Then
         r.Value = r.Value
      End If
   Next r
End Sub

Answer 2

我能够使用我在a different question上找到的变通方法创建一个解决方案(不是非常漂亮或优雅的解决方案)

我使用了链接提供的代码，以允许我自己使用pastespecial复制和粘贴简单的值