Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вставка значений посимвольно в дублированые строки
 

Добрый день высокоуважаемые мастера и гуру Эксель.

Обращается к Вам за помощью обычный рядовой Юзер. Не были бы вы так любезны помочь новичку и направить на путь истинный… :)

Описание проблемы:

Есть список, строки не повторяются.  (пример во вложении – Лист Пример).

По значению в колонке В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 символов, если повторений больше  то цикл повторяется с первого….

Подскажите пожалуйста, можно такое реализовать  макросом, либо какими-то формулами?

Спасибо!

 
Код
Sub tochka()
Dim mass()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 1 To Cells(i, 2).Value
        a = a + 1
        p = p + 1
        If p = 5 Then p = 1
        ReDim Preserve mass(1 To 4, 1 To a)
        mass(1, a) = Cells(i, 1).Value: mass(2, a) = Cells(i, 2).Value
        mass(3, a) = Cells(i, 3).Value: mass(4, a) = Mid(Cells(i, 3).Value, p, 1)
    Next
p = 0
Next
Worksheets.Add
Range("A2").Resize(a, 4) = Application.Transpose(mass)
End Sub
 
Круто! Вот это мастерство! Спасибо тебе огромное добрый человек!!! Очень выручил!!!!
Если, не затруднит, напиши пожалуйста в макросе -  Коментарии\описание к основным строкам...
Страницы: 1
Читают тему (гостей: 1)