Не используя сортировку, написать макрос нумерующий регионы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не используя сортировку, написать макрос нумерующий регионы (Макросы/Sub)

Красотка

Дата: Суббота, 14.03.2015, 16:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Просмотрела темы, ответа на свой вопрос не нашла, помогите написать макрос, пожалуйста, файл приложен

К сообщению приложен файл: 2495432.xlsm (35.8 Kb)

Ответить

DJ_Marker_MC

Дата: Суббота, 14.03.2015, 17:16 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Красотка, Добрый вечер.
Как насчет такого решения?
[vba]

Код

Sub iRanng()
Application.ScreenUpdating = False
Range("C2:C50").FormulaR1C1 = "=RANK.EQ(RC[-1],R2C2:R50C2)"
Range("C2:C50").Value = Range("C2:C50").Value
Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 2509807.xlsm (36.8 Kb)

Ответить

RAN

Дата: Суббота, 14.03.2015, 17:23 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub мяу()
     Dim i As Long, k As Long, LARGE As Double, arr
     arr = Range(Cells(2, "B"), Cells(Rows.Count, "B").End(xlUp)).Value
     For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row - 1
         LARGE = Application.WorksheetFunction.LARGE(arr, k)
         For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
             If Cells(i, 2) = LARGE Then Cells(i, 3) = k
         Next
     Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Красотка

Дата: Суббота, 14.03.2015, 17:24 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Оказалось все не так сложно! Спасибо большое!

Ответить

Страница 1 из 1
1