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

Question

我不确定这样的事情是否可行，我的同事告诉我，这是不可能的，因为字符串与公式的性质不同。 我要取字符串：

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

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

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 作为您的值。

因此，这 2 个偏移量为您提供了一个您想要的适当偏移量的单元格。然后你把那个单元格的行和列发送到地址函数来获取你的地址。

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

当然，如果您愿意，您可以只使用这些函数并从 VB 代码中调用它们。