VBA 大公式不起作用

我正在使用 Excel 2013，

我应用 2 种方式使用 Large Formula VBA，但没有用，我错了，我不知道

子宏1()
'1st Table Dim 语句 ---> 声明变量
Dim lRow 一样长，lCol 一样长
lRow = 范围("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).列

'列数
暗 k 一样长，m 一样长
k = 范围("C5", 范围("C5").End(xlToRight)).Columns.Count
'行数
m = 范围("D6", 范围("D6").End(xlDown)).Rows.Count

将 MyRange 调暗为范围
设置 MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Range("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange & ",1)"

'和

'=(大($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"

END SUB

请帮助我并感谢您的提前