特定细胞：K4 和 K8
包含公式所需数据的列：A（名为 devm 的值）、C（名为 slice 的值）和 D（名为 point 的值）
带有公式的列：E、F 和 G（想将这些值命名为角度、devmm 和高度）
进入 E1 的公式：=(D1 - 1) * $K$8
进入F1的公式：=A1 * 1000
进入 G1 的公式：=(C1 - 1) * $K$4
^^^这些仅与第 1 行有关
我希望我的宏将这些公式输入到这些第 1 行单元格中，然后自动填充到最后一个活动行（我已经对其代码进行了排序）。我的代码的相关部分如下。
K = 1
ender = Tier * increment
last = LastTier * increment
starter = ender - (increment - 1)
If starter = 0 Then
starter = 1
End If
sheetname1 = "Sheet1"
ActiveSheet.Name = sheetname1
ActiveSheet.Range("K2") = TankHeight
ActiveSheet.Range("K3") = LastTier …