VBA Excel WorksheetFunction.Rank issue

Question

Я очень новичок в VBA, поэтому, пожалуйста, пройдите ко мне.

У меня есть список номеров длиной в 120 000 строк, которые я хочу ранжировать с шагом 12 - это означает, что первые 12 чисел должны быть ранжированы от 1 до 12, следующие 12 чисел от 1 до 12 и т. Д.

Я знаю, как это сделать в Excel, по одному приращению за раз, используя функцию Ранга, но так как мне понадобилось навсегда сделать это вручную, я решил попробовать закодировать макрос, чтобы сделать это для меня.

Это насколько я уже пришел.

Sub Rank() 

    Range("H1").End(xlDown).Offset(1, 0).Select 
    ActiveCell = Application.WorksheetFunction.Rank(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1), ActiveCell.Offset(12, 1)) 
    Range("H200000").Select 
    Selection.End(xlUp).Select 
    Selection.Copy 
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(11, 0)).Select 
    ActiveSheet.Paste 
End Sub 

Я сделал несколько итераций, пытаясь выяснить, где я ошибаюсь, но в настоящее время я застрял. Я уверен, что есть простой способ понять это, но у меня просто нет навыков, чтобы сделать это без посторонней помощи, поэтому любая помощь была бы очень обязательна.

Answer 1

Несколько вопросов здесь:

ActiveCell является свойством только для чтения. Вы перемещаете его, используя .Activate, а не установку ActiveCell.

Ранг принимает три аргумента: ячейку (или значение) в качестве значения поиска, диапазон для поиска ранга внутри и значение для установки возрастающего или нисходящего ранга. Вы передали ему три ячейки.

Окончательные строки кода, которые являются единственными, которые влияют на электронную таблицу, копируют последний элемент в столбце H вниз для еще 12 ячеек. Я не думаю, что это тот эффект, который вы искали ...

Следующее предполагает, что ваши данные начинаются с H2 и помещают ранг в каждый блок из 12 в столбце I. Это больше, чем вы были находясь в поиске?

Sub Rank() 
    Dim i As Long 
    Dim j As Long 
    Application.ScreenUpdating = False 
    For i = 1 To 10000 
     For j = 1 To 12 
      Cells((i - 1) * 12 + (j + 1), 9).Value = WorksheetFunction.Rank(Cells((i - 1) * 12 + (j + 1), 8), Range(Cells((i - 1) * 12 + 2, 8), Cells((i - 1) * 12 + 13, 8)), 1) 
     Next j 
    Next i 
    Application.ScreenUpdating = True 
End Sub