Настройка динамического диапазона

Question

Я пытаюсь установить диапазон динамически. Однако я столкнулся с некоторой ошибкой:

Вызов функции в левой части присваивания должен возвращать Variant или Object.

Sub calDailyGC()

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Dim Rng As Range

    numGC = Cells(46, 7).Value
    numDays = Cells(47, 7).Value

    Debug.Print numGC
    Debug.Print numDays

    For k = 3 To numDays + 1
        Set Rng = Range(Cells(k, 12), Cells(k, 9999))
        sumRate = 0
        For j = 1 To numGC
            rate = Application.WorksheetFunction.Large(Rng, j)
            sumRate = sumRate + rate
        Next j
        avgGCRate = sumRate / numGC
    Next k
    Debug.Print avgGCRate

End Sub

Answer 1

Вызов функции в левой части назначения должен возвращать Variant или Object.

rate = Application.WorksheetFunction.Large (Rng, j)

Неиспользуйте Rate.Это зарезервированное слово в VBA.Вы можете прочитать о Rate здесь

Изменить его на

LargeVal = Application.WorksheetFunction.Large(Rng, j)