Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сведение данных из одинаково повторяющихся столбцов в один столбец.
 
Помогите пожалуйста.
Есть 5 столбцов, Бренд, Модель, код, цена 1, цена 2, все эти столбцы повторяются слева направо, нужно свести все эти данные в одну таблицу из этих 5 столбцов.
Изменено: djmers - 30 Мар 2015 11:31:55
 
Можно каким-то таким макросом:
Код
Sub djmers()
Dim lngI As Long
    For lngI = 6 To Cells(1, Columns.Count).End(xlToLeft).Column Step 5
        Range(Cells(2, lngI), Cells(Cells(Rows.Count, lngI).End(xlUp).Row, lngI + 4)).Copy _
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
    Next lngI
End Sub
Кому решение нужно - тот пример и рисует.
 
Надо чтобы без макросов. В файле показал итоговый результат
 
если без макросов - то тогда руками, причём Вашими (:
а макрос чем не угодил?
Конь, просто конь.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
Страницы: 1
Читают тему (гостей: 1)