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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для размножения строк с перебором разных ячеек - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Макрос для размножения строк с перебором разных ячеек
martalog Дата: Четверг, 24.09.2015, 13:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Появилась задача сгенерировать строки из условий, что есть набор ячеек например:
Цитата
зеленый | пушистый | 5
синий | мягкий | 10
. . . | . . .. | 15

А нужно составить из них строки:
Цитата
зеленый | пушистый | 5
зеленый | пушистый | 10
зеленый | пушистый | 15
зеленый | мягкий | 5
зеленый | мягкий | 10
зеленый | мягкий | 15
синий | пушистый | 5
синий | пушистый | 10
синий | пушистый | 15
синий | мягкий | 5
синий | мягкий | 10
синий | мягкий | 15


Количество исходных ячеек в столбцах бывает разным. Вообще у меня задача делать операцию с бОльшим количеством столбцов, но я смогу поправить код для себя, если поможите.
Помогите решить задачу. Или подскажите пример от которого можно оттолкнуться.
К сообщению приложен файл: 456.xls (26.0 Kb)
 
Ответить
СообщениеЗдравствуйте.
Появилась задача сгенерировать строки из условий, что есть набор ячеек например:
Цитата
зеленый | пушистый | 5
синий | мягкий | 10
. . . | . . .. | 15

А нужно составить из них строки:
Цитата
зеленый | пушистый | 5
зеленый | пушистый | 10
зеленый | пушистый | 15
зеленый | мягкий | 5
зеленый | мягкий | 10
зеленый | мягкий | 15
синий | пушистый | 5
синий | пушистый | 10
синий | пушистый | 15
синий | мягкий | 5
синий | мягкий | 10
синий | мягкий | 15


Количество исходных ячеек в столбцах бывает разным. Вообще у меня задача делать операцию с бОльшим количеством столбцов, но я смогу поправить код для себя, если поможите.
Помогите решить задачу. Или подскажите пример от которого можно оттолкнуться.

Автор - martalog
Дата добавления - 24.09.2015 в 13:53
китин Дата: Четверг, 24.09.2015, 14:11 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
на коленке и формулой
Код
=ИНДЕКС(A:A;ЦЕЛОЕ((СТРОКА(A1)-1)/СЧЁТЗ($C:$C))+1)&" "&ИНДЕКС(B:B;ОСТАТ(СТРОКА(A1)-1;СЧЁТЗ(C:C))+1)&" "&ИНДЕКС(C:C;ОСТАТ(СТРОКА(A1)-1;СЧЁТЗ(C:C))+1)
К сообщению приложен файл: martalog.xls (22.0 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениена коленке и формулой
Код
=ИНДЕКС(A:A;ЦЕЛОЕ((СТРОКА(A1)-1)/СЧЁТЗ($C:$C))+1)&" "&ИНДЕКС(B:B;ОСТАТ(СТРОКА(A1)-1;СЧЁТЗ(C:C))+1)&" "&ИНДЕКС(C:C;ОСТАТ(СТРОКА(A1)-1;СЧЁТЗ(C:C))+1)

Автор - китин
Дата добавления - 24.09.2015 в 14:11
martalog Дата: Четверг, 24.09.2015, 14:28 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Тут результат немного другой, есть неполноценные строки(без каких-то значений). И нужно чтобы результат был разделен на ячейки(по столбцам) как в файлике :
К сообщению приложен файл: rezultat.xls (26.5 Kb)
 
Ответить
СообщениеТут результат немного другой, есть неполноценные строки(без каких-то значений). И нужно чтобы результат был разделен на ячейки(по столбцам) как в файлике :

Автор - martalog
Дата добавления - 24.09.2015 в 14:28
ShAM Дата: Четверг, 24.09.2015, 15:13 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
И все же формулами, но, вроде бы, работает.
К сообщению приложен файл: martalog_1.xls (28.5 Kb)
 
Ответить
СообщениеИ все же формулами, но, вроде бы, работает.

Автор - ShAM
Дата добавления - 24.09.2015 в 15:13
martalog Дата: Пятница, 25.09.2015, 12:51 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
И все же формулами, но, вроде бы, работает.

Да, работает. Вродь как нада, сейчас попробую переделать под большее количество солбцов. Спасибо большое.
 
Ответить
Сообщение
И все же формулами, но, вроде бы, работает.

Да, работает. Вродь как нада, сейчас попробую переделать под большее количество солбцов. Спасибо большое.

Автор - martalog
Дата добавления - 25.09.2015 в 12:51
  • Страница 1 из 1
  • 1
Поиск:

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