我正在使用 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
请帮助我并感谢您的提前
我应用 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
请帮助我并感谢您的提前