Excel VBA：如何引用Q列动态末尾单元格值编写R1单元格公式

嘿，这个问题我熟！你已经找对了定位Q列动态总计单元格的方向，接下来只需要把这个动态位置的引用无缝代入到R1的公式里就行，不用再纠结固定的偏移量啦。这里给你两种实用的实现方式，按需选择：

方法1：适配你习惯的R1C1样式公式 #

先把定位到的总计单元格存成变量，再动态计算它相对于R1的行偏移，代入公式：

Sub SetDynamicR1C1Formula()
    ' 定位Q列的总计单元格（从Q1向下查找最后一个非空单元格）
    Dim totalCell As Range
    Set totalCell = Range("Q1").End(xlDown)
    
    ' 在R1写入动态公式：引用Q1除以Q列的总计值
    Range("R1").FormulaR1C1 = "=RC[-1]/R[" & totalCell.Row - 1 & "]C[-1]"
    ' 👉 解释：totalCell.Row - 1 是计算总计单元格相对于R1的行偏移量
    ' 比如总计在Q41，41-1=40，就和你原来的R[40]效果一致，但现在是动态计算的
End Sub

方法2：更直观的A1样式公式 #

如果你觉得R1C1的偏移计算有点绕，直接用A1样式的单元格地址会更清晰：

Sub SetDynamicA1Formula()
    Dim totalCell As Range
    ' 更稳妥的定位方式：从Q列最后一行向上找（避免Q列前半部分有空单元格的情况）
    Set totalCell = Range("Q" & Rows.Count).End(xlUp)
    
    ' 直接引用总计单元格的地址，公式逻辑和手动写的完全一致
    Range("R1").Formula = "=Q1/" & totalCell.Address
End Sub

额外优化提示 #

• 如果你担心Q列可能只有单个值（比如总计就在Q1），可以加个简单判断避免错误：

  If totalCell.Row = 1 Then
      MsgBox "Q列未找到有效的总计单元格，请检查数据！"
      Exit Sub
  End If
  

• Range("Q" & Rows.Count).End(xlUp) 是比从Q1向下找更可靠的定位方式，能避开中间空单元格的干扰。

内容的提问来源于stack exchange，提问作者Martin Hewitt Tayler