关于"转换公式引用样式"代码的请教!谢谢!

hcy1185

Sub 转换公式引用样式()
     Dim arr1, i, inputFormula
                                                                       '能否在R1C1样式的字符串加入变量,能否正常转换?
    inputFormula = "=SUM(R[10]C[2]:R[15]C[2])" '为什么此行字符串返回的是相对活动单元格的相对引用?
    'inputFormula = "=SUM(R10C2:R15C2)"'此行字符串返回的是指定行列绝对引用
    MsgBox Application.ConvertFormula(Formula:=inputFormula, fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1)
End Sub

lss001

'加入变量i,j
i = i + 1： j = j + 1
inputFormula = "=SUM(R[" & i & "]C[" & j & "]:R[" & i
+ 2 & "]C[" & j + 2 & "])"