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复制和粘贴值

使用vba删除函数调用

2 个答案: