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

Question

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

我正在创建一个报表，该报表使用模板工作表中的公式，用于另一个使用R1C1公式的工作表上的报表。例如，第2列Row 1等于第1列Row 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