Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Распределить данные из ячейки таблицы по разным столбцам
 
Добрый день!
Имеется исходная табличка. Последний столбец которой состоит из данных в текстовом формате, указанных через запятую. Посмотрите файл, там две таблички. Первая - то, что есть, вторя то, что необходимо получить.
 
Код
Option Explicit

Sub getTable(rngFull As Range, rngOutput As Range)
    Dim temp As Variant
    Dim cell As Range
    Dim lngRow As Long: lngRow = 1
    For Each cell In rngFull.Columns(5).Cells

        For Each temp In Split(cell, ",")
            DoEvents
            rngFull.Rows(lngRow).Copy rngOutput
            rngOutput(1, 5) = temp
            Set rngOutput = rngOutput(2, 1)

        Next temp
        lngRow = lngRow + 1

    Next cell
End Sub
Sub main()
    Call getTable([a2:e5], [g2])
End Sub
С уважением,
Федор/Все_просто
 
Я так понимаю, что это макрос. Запускаю, но ничего не просиходит
Изменено: itconsalting - 18 Апр 2015 10:33:08
 
Наверное, стоило написать, как все делается. Нажимаем Alt+F11. Далее в меню Insert → Module. Копируем в модуль данный код. Ставим курсор внутри процедуры main и нажимаем f5. В этой процедуре первые квадратные скобки описывают область применения (нужно выделить только область с данными, без заголовков). В области применения должна помещаться вся информация согласна вашему файлу. Во вторых квадратных скобках указывается область, в которую будет происходить вставка значений.
С уважением,
Федор/Все_просто
 
Спасибо, что разжевали. У меня получилось.
Изменено: itconsalting - 19 Апр 2015 08:16:13
Страницы: 1
Читают тему (гостей: 1)