Добрый день высокоуважаемые мастера и гуру Эксель.
Обращается к Вам за помощью обычный рядовой Юзер. Не были бы вы так любезны помочь новичку и направить на путь истинный…
Описание проблемы:
Есть список, строки не повторяются. (пример во вложении – Лист Пример).
По значению в колонке В2 - необходимо продублировать количество строк (1 – ничего не вставляем, 2 – добавляем еще одну строку, и т. Д. может быть до 28 повторений).
Нашол на сайте статью:Sub Duplicate_Rows()
Dim cell As Range
Set cell = Range("B2") 'первая ячейка в столбце с кол-вом билетов
Do While Not IsEmpty(cell)
If cell > 1 Then
cell.Offset(1, 0).Resize(cell.Value - 1, 1).EntireRow.Insert 'вставляем N пустых строк
cell.Resize(cell.Value, 1).EntireRow.FillDown 'заполняем вниз из первых ячеек
End If
Set cell = cell.Offset(cell.Value, 0)
Loop
End Sub
Необходимо чтобы с колонки С в колонку D в каждую строку проставился тот символ по счету, какое повторение. (первая строка, первый символ, вторая строка второй символ)…
Но в колонке С не более 4 символов, если повторений больше то цикл повторяется с первого….
Подскажите пожалуйста, можно такое реализовать макросом, либо какими-то формулами?
Спасибо!