Поиск в массиве последнего одинакового числа

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в массиве последнего одинакового числа (Макросы/Sub)

Дед

Дата: Четверг, 26.11.2015, 10:50 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

2013

Здравстуйте уважаемые форумчане. Помогите пожалуйста решить проблему по работе. Буду кратко. Есть массив чисел, упорядочен по возрастанию. Числа повторяются. Необходимо после последнего повторяющегося числа вставить строку. Пример: 100 100 100 строка 101 101 строка 102 и так далее
[moder]А почему опрос, а не обычная тема?[/moder]

Сообщение отредактировал Manyasha - Четверг, 26.11.2015, 10:57

Ответить

Manyasha

Дата: Четверг, 26.11.2015, 11:33 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Дед, так?
[vba]

Код

Sub addRow()
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
        If Cells(i - 1, 1) <> Cells(i, 1) Then Rows(i).Insert
    Next i
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

RAN

Дата: Четверг, 26.11.2015, 12:05 | Сообщение № 3

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

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

Сообщений: 5660

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

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

2010

Так, наверное, правильнее
[vba]

Код

Sub addRow1()
    lr = Cells(Rows.Count, "a").End(xlUp).Row
    Set r = Range(Cells(1, 1), Cells(1, lr))
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
        If Application.CountIf(r, Cells(i - 1)) > 1 Then
            If Cells(i - 1, 1) <> Cells(i, 1) Then Rows(i).Insert
        End If
    Next i
End Sub

[/vba]