将存储在Excel单元格中的文本转换为VBA中的公式

Question

我不确定同事是否曾告诉我这样的事情是否可能，因为字符串和公式的性质是不可能的。 我想把字符串：

'"=" & ValRange.offset(0,0).address

在我的VBA例程中声明一个范围，并将convert转换为公式。 在我的例程中，我有以下代码：

Sub GetRange()
Dim strSource As String
Dim HomeRange As Range
Dim ValRange As Range

Set ValRange = Range("k1")
Set HomeRange = Range("e6")

strSouce = HomeRange.Value
strSource = Replace(strSource, """", "")
Range("e7") = strSource

End Sub

如您所见，我已经尝试过剥离字符，但似乎不起作用（据我了解，当前的代码是，它将剥离所有引号，但只想用作示例。将其转换为公式的任何想法都值得赞赏。马特

Answer 1

假设您将ValRange定义为单元格A1。 在单元格A2中，您具有行偏移值（例如0），在单元格A3中，您具有列偏移值（例如2）。 在单元格A4中，输入=ADDRESS(ROW(OFFSET(A1,A2,A3)), COLUMN(OFFSET(A1,A2,A3)))您将在单元格A4中获得$ C $ 1作为您的值。

因此，这两个偏移量为您提供了一个所需的适当偏移量的单元格。 然后，获取该单元格的行和列，并将其发送到地址函数以获取地址。

要将地址转换回偏移量单元格中的值，请使用=INDIRECT(A4) 。 这将为您提供单元格C1中任何值的值。

当然，您可以随意使用这些功能，并从VB代码中调用它们。