Excel vba总和公式

Question

我尝试使用VBA将公式添加到其中一个单元格中：

With Selection
       .Merge
       .Offset(0, 2).Resize(2, 4).Merge
       .Offset(0, 7).Resize(2, 5).Merge
       .Offset(0, 7).Formula = "=R[0]C[-5]/SUM(EB:EB)"
       .Offset(0, 7).NumberFormat = "0.0%"
End With

但是当我检查单元格时，公式显示为=EB16/SUM(EB:(EB))

我对公式做错了什么？感谢。

Answer 1

您不能将xlR1C1和xlA1单元格地址混合并混合在一起。

With Selection
       .Merge
       .Offset(0, 2).Resize(2, 4).Merge
       .Offset(0, 7).Resize(2, 5).Merge
       .Offset(0, 7).Formula = "=" & .offset(0, 2).address(0, 0) & "/SUM(EB:EB)"
       .Offset(0, 7).NumberFormat = "0.0%"
End With

确定精确的单元格参考有点困难，但RC [-5]在放入原始选择的单元格偏移（0,7）时应该是偏移（0,2）。