'随便写了个公式,就是获取公式计算结果。
'如果想要动态获取可把过程改成change事件就可以了。
Option Explicit
Sub abc()
Dim i
ReDim a(1 To 2, 6 To 9) 'T的取数范围,自己修改
For i = LBound(a, 2) To UBound(a, 2)
[c2] = i'T值
DoEvents
a(1, i) = i: a(2, i) = [c3].Value '[c3]为K值
Next
[f2].Resize(2, UBound(a, 2) - LBound(a, 2) + 1) = a
End Sub