Создание диапазона только с четным числом col

Question

Мне интересно, чтобы rng выделял только четные столбцы (в пределах от 12 до 9999). Я приложил свой код ниже. Пожалуйста, помогите, спасибо!

Sub calDailyGC()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Set w = Application.WorksheetFunction
    Dim gc As Double

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

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

End Sub

Answer 1

Попробуйте вместо Rng = Range(Cells(k, 12), Cells(k, 9999)):

With ThisWorkbook.ActiveSheet
    Dim Rng As Range
    Dim i As Long
    i = 12
    Set Rng = .Cells(k, i)
    i = i + 2
    Do While i < 9999
        Set Rng = Union(Rng, .Cells(k, i))
        i = i + 2
    Loop
End With