vba - VBA - 将 R1C1 公式中的列从偏移量 1 更改为偏移量 2

Question

很难解释我在寻找什么，但我会尝试......

我正在创建一个报告，该报告使用模板表中的公式，用于使用 R1C1 公式的另一个表上的报告。例如，第 2 列第 1 行等于第 1 列第 1 行乘以 2。模板页面上的公式为“=RC[-1]*2”。问题是在实际报告所在的页面上，每列数字之间都有一个空白列。因此，当我从模板表中复制公式时，R1C1 列偏移量需要加倍，即“=RC[-2]*2”。

如何处理字符串以使列偏移量加倍。我知道我可以分解字符串并分离数字部分，但我认为有更好的方法。

谢谢。

Answer 1

我想我必须这样做：

If InStr(a, "C[") Then
    a = Left(a, InStr(a, "C[") + 1) & (Mid(a, InStr(a, "C[") + 2, Len(a) - InStr(a, "C[") - 2) * 2) & "]"
ElseIf IsNumeric(Right(a, 1)) Then
    a = Left(a, InStr(a, "C")) & (Right(a, Len(a) - InStr(a, "C")) * 2)
End If