function - 需要使用 VBA 函数在 Excel 中粘贴值的指导

Question

我是 VBA 新手，但已经成功创建了一些有用的 Excel 函数。我现在正在做的那个看起来应该很简单的，正在躲避我。我想我误解了语法，需要一些指导。

考虑以下屏幕截图；我正在尝试在 E 列中创建函数，它只是来自 D$n 的值。


到目前为止，这是我所得到的:

Function PASTVALUE(q As String)
q.PasteSpecial Paste:=xlPasteValues
End Function

如果我理解正确，它将输入值(在我的情况下，单元格的内容 D$n )作为字符串读取，然后使用 PasteValues 粘贴它.

在粘贴之前我需要以某种方式复制它吗？我以为 q As String参数是将它带入函数的原因。

但是，如果我不复制，它是否试图 paste从一个空的剪贴板......在这种情况下，我不知道我应该用什么来完成这个。

帮助!

Answer 1

您可以像这样“转移”值(显示)

Function PASTEVALUE(rng As Range)
    PASTEVALUE = rng.Text
End Function

或使用 Evaluate()用于评估该范围内的公式的函数

 Function PASTEVALUE(rng As Range)
        PASTEVALUE = [rng]
    End Function