Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание множества строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание множества строк (Формулы/Formulas)
Создание множества строк
CryOfSoul Дата: Пятница, 23.07.2021, 16:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Есть большой массив данных в excel в виде:
Столбец А - название
Столбец B - количество
Условно, Иван - 2, Петр - 4, Вася - 3.
Необходимо создать количество строк соответствующее количественному значению в столбце B.
Должно получиться:
Иван
Иван
Петр
Петр
Петр
Петр
Вася
Вася
Вася
 
Ответить
СообщениеДобрый день!
Есть большой массив данных в excel в виде:
Столбец А - название
Столбец B - количество
Условно, Иван - 2, Петр - 4, Вася - 3.
Необходимо создать количество строк соответствующее количественному значению в столбце B.
Должно получиться:
Иван
Иван
Петр
Петр
Петр
Петр
Вася
Вася
Вася
Автор - CryOfSoul
Дата добавления - 23.07.2021 в 16:40
Nic70y Дата: Пятница, 23.07.2021, 16:48 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    aa = Cells(Rows.Count, "a").End(xlUp).Row
    For i = 1 To aa
        ba = Range("a" & i).Value
        bb = Range("b" & i).Value
        ca = Cells(Rows.Count, "d").End(xlUp).Row + 1
        Range("d" & ca & ":d" & ca + bb - 1) = ba
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    aa = Cells(Rows.Count, "a").End(xlUp).Row
    For i = 1 To aa
        ba = Range("a" & i).Value
        bb = Range("b" & i).Value
        ca = Cells(Rows.Count, "d").End(xlUp).Row + 1
        Range("d" & ca & ":d" & ca + bb - 1) = ba
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 23.07.2021 в 16:48
CryOfSoul Дата: Пятница, 23.07.2021, 17:21 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, отлично работает, спасибище.
А можно ещё немного усложнить эту историю и автоматически пронумеровать Вась и Петь?
1 Иван
2 Иван
1 Петр
2 Петр
3 Петр
4 Петр
1 Вася
2 Вася
3 Вася
 
Ответить
СообщениеNic70y, отлично работает, спасибище.
А можно ещё немного усложнить эту историю и автоматически пронумеровать Вась и Петь?
1 Иван
2 Иван
1 Петр
2 Петр
3 Петр
4 Петр
1 Вася
2 Вася
3 Вася
Автор - CryOfSoul
Дата добавления - 23.07.2021 в 17:21
Nic70y Дата: Пятница, 23.07.2021, 17:29 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
добавил простую формулу
[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    aa = Cells(Rows.Count, "a").End(xlUp).Row
    For i = 1 To aa
        ba = Range("a" & i).Value
        bb = Range("b" & i).Value
        ca = Cells(Rows.Count, "d").End(xlUp).Row + 1
        Range("d" & ca & ":d" & ca + bb - 1) = ba
    Next
    fa = Cells(Rows.Count, "d").End(xlUp).Row
    Range("c2:c" & fa).FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C+1,1)"
    Range("c2:c" & fa) = Range("c2:c" & fa).Value
    Application.ScreenUpdating = False
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщениедобавил простую формулу
[vba]
Код
Sub u_149()
    Application.ScreenUpdating = False
    aa = Cells(Rows.Count, "a").End(xlUp).Row
    For i = 1 To aa
        ba = Range("a" & i).Value
        bb = Range("b" & i).Value
        ca = Cells(Rows.Count, "d").End(xlUp).Row + 1
        Range("d" & ca & ":d" & ca + bb - 1) = ba
    Next
    fa = Cells(Rows.Count, "d").End(xlUp).Row
    Range("c2:c" & fa).FormulaR1C1 = "=IF(RC[1]=R[-1]C[1],R[-1]C+1,1)"
    Range("c2:c" & fa) = Range("c2:c" & fa).Value
    Application.ScreenUpdating = False
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 23.07.2021 в 17:29
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание множества строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!