VBA自动填充公式与一个固定的单元格引用

我试图使用vba自动填充公式到一个范围。 我想要做的是计算每个项目的百分比贡献。 说我有2个条目

A1 = 4

A2 = 6

A3 = A1和A2的总和= 10

我想要的是

B1 = A1 / $ A $ 3 = 40％

B2 = A2 / $ A $ 3 = 60％

但我不太清楚我怎么能findA的最后一行，并将其编码进去

范围（“B1”）。Formula =“= A1 / ?????”

任何想法都会有帮助！ 谢谢

Answer 1

请试试这个..

Range("B1").FormulaR1C1 = "=RC[-1]/INDEX(C[-1],MATCH(1E+99,C[-1]))" 

您需要通过指定分别来自活动单元格的行和列号（例如RC[-1]/R3C1来提及循环引用的范围

Answer 2

先find最后一个单元格，然后求和并将公式添加到列B中

  Sub Button1_Click() Dim LstRw As Long, rng As Range, Sm As Range LstRw = Cells(Rows.Count, "A").End(xlUp).Row Set rng = Range("A1:A" & LstRw) Set Sm = Cells(LstRw + 1, 1) Sm = Application.Sum(rng) rng.Offset(, 1) = "=a1/" & Sm.Address End Sub