Excel 2013中VBA调用LARGE函数失效，请求排查错误

你的代码核心问题是直接将Range对象拼接进公式字符串，VBA中直接拼接Range对象时，会默认获取区域的Value而非单元格地址，导致生成的公式格式错误，无法被Excel识别。

具体错误点及修正： #

• 区域引用错误：MyRange是Range对象，直接拼入公式会返回区域的值（多单元格时会导致公式语法错误），必须改用MyRange.Address获取单元格地址字符串。
• 单个单元格引用错误：第二个公式中的Range("D5").Offset(1, k + 3)同理，需替换为Range("D5").Offset(1, k + 3).Address，否则会将单元格值直接写入公式而非引用地址。

修正后的代码： #

Sub Macro1()
    '1st Table Dim statement ---> Declares variables
    Dim lRow As Long, lCol As Long
    lRow = Range("D5").End(xlDown).Row
    lCol = Range("C5").End(xlToRight).Column

    'Column Count in Number
    Dim k As Long, m As Long
    k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
    'Row Count in Number
    m = Range("D6", Range("D6").End(xlDown)).Rows.Count

    Dim MyRange As Range
    Set MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

    '修正第一个公式：使用Address获取区域地址
    Range("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange.Address & ",1)"

    '修正第二个公式：同时修正区域和单个单元格的引用
    Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange.Address & ",1)-" & Range("D5").Offset(1, k + 3).Address & ")/2"
End Sub

额外说明： #

如果需要生成绝对引用（如示例中的$I$6:$I$12），可以给Address方法添加参数：MyRange.Address(True, True)，两个True分别代表行绝对引用和列绝对引用，默认即为绝对引用，无需额外参数即可生成示例格式的引用。

内容的提问来源于stack exchange，提问作者Sivaprakasam