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