Excel vba总和公式[复制]

Posted 2021-05-04

这个问题在这里已有答案：

• Excel macro formula adding quotes in formula causing vlookup to not work 3回答

我尝试使用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))

我怎么做公式错了？谢谢。

答案

您不能将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）。