Подскажите, как сделать так, чтобы Leader равнялось не трем, а максимальному числу в выделенном столбце (которое выделяется перед выполнением макроса)
Сам алгоритм создает соседний столбец, где пересчитывает все значения выделения как доли от самого большого значения в выделении (которое, соответственно, становится равно единице).
Другая проблема заключается в том, что если выделять снизу вверх, столбец неправильно располагается, но это не так важно.
Скрытый текст |
|---|
Sub Макрос()
'
' Макрос Макрос
'
Dim Cell&
Cell = Selection.Count
Dim Leader&
Leader = 3
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/" & Leader & ""
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & Cell)
End Sub
'MAX(C[-1]) |
