Cells(J, "R").Value = "=(RC[-8]/RT1)*RT2*RC[-1]"其中RT1 RT2 是变量,如何修改此VBA 代码

这个VBA代码片段看起来是用来更新工作表中特定单元格的值，公式涉及到相对引用(RC[-8])、两个变量RT1和RT2以及绝对引用(RC[-1])。如果你想修改这个代码以适应RT1和RT2这两个变量，你需要将它们替换为实际的单元格引用或者存储的具体数值。

例如，如果你已经为RT1和RT2分别赋了值，你可以这样做：

Dim RT1Cell As Range '假设RT1的值存放在Range("A1")中
Set RT1Cell = ThisWorkbook.Sheets("Sheet1").Cells("A1")
Cells(J, "R").Value = "=(" & RT1Cell.Value & "/" & RT2Variable & ") * " & RT2Cell.Value & " * " & Cells(J, "RC[-1]").Value

这里，`RT1Cell.Value`表示RT1单元格的实际值，`RT2Variable`应该替换为RT2变量的实际引用或者其计算后的结果。

如果RT1和RT2是动态变化的值，你可能需要通过其他函数（如InputBox或UserForm）来获取用户的输入：

Dim RT1Input As Variant
Dim RT2Input As Variant

RT1Input = InputBox("请输入RT1的值")
RT2Input = InputBox("请输入RT2的值")

Cells(J, "R").Value = "=(" & RT1Input & "/" & RT2Input & ") * " & RT2Input & " * " & Cells(J, "RC[-1]").Value

记得将上述代码中的"Sheet1"、"A1"替换为你实际的工作表名和RT1的存放位置。