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

Вход

Регистрация

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

 

= Мир MS Excel/Преобразование таблицы к простому виду - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование таблицы к простому виду (Формулы/Formulas)
Преобразование таблицы к простому виду
victoriaa021 Дата: Суббота, 25.11.2017, 19:40 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Таблица формируется с помощью заполнения гугл формы, из-за этого появляются повторяющиеся столбцы:(
Необходимо убрать повторяющиеся столбцы используя первый столбец, как главный.
Не могу автоматизировать это:( Возможно, кто-то сможет подсказать решение данной проблемы.
К сообщению приложен файл: 8841339.xlsx(9Kb)


Сообщение отредактировал victoriaa021 - Суббота, 25.11.2017, 22:29
 
Ответить
СообщениеТаблица формируется с помощью заполнения гугл формы, из-за этого появляются повторяющиеся столбцы:(
Необходимо убрать повторяющиеся столбцы используя первый столбец, как главный.
Не могу автоматизировать это:( Возможно, кто-то сможет подсказать решение данной проблемы.

Автор - victoriaa021
Дата добавления - 25.11.2017 в 19:40
buchlotnik Дата: Суббота, 25.11.2017, 20:19 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3433
Репутация: 921 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
И вам здрасьте. Понятно ровным счётом НИЧЕГО - покажите в файле как должно оказаться после обработки


"заступлюсь за Юрия" - публичный плевок в душу!
 
Ответить
СообщениеИ вам здрасьте. Понятно ровным счётом НИЧЕГО - покажите в файле как должно оказаться после обработки

Автор - buchlotnik
Дата добавления - 25.11.2017 в 20:19
victoriaa021 Дата: Суббота, 25.11.2017, 20:31 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добавила в документ то, что примерно должно выйти после преобразования.
К сообщению приложен файл: 9679102.xlsx(10Kb)
 
Ответить
СообщениеДобавила в документ то, что примерно должно выйти после преобразования.

Автор - victoriaa021
Дата добавления - 25.11.2017 в 20:31
bmv98rus Дата: Суббота, 25.11.2017, 20:54 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 686
Репутация: 114 ±
Замечаний: 0% ±

Excel 2013/2016
victoriaa021,
Название темы не соответвует тому, что вы хотите. Убрать повторяющиеся - тогда это просто удалить все от O до конца.Только они повторяются. Но ведь по сути вы и одну строку с данными (1401102300002 Нет )тоже удалили. формульным решением конечно можно попытаться сделать, однако VBA будет проще.


Сообщение отредактировал bmv98rus - Суббота, 25.11.2017, 20:55
 
Ответить
Сообщениеvictoriaa021,
Название темы не соответвует тому, что вы хотите. Убрать повторяющиеся - тогда это просто удалить все от O до конца.Только они повторяются. Но ведь по сути вы и одну строку с данными (1401102300002 Нет )тоже удалили. формульным решением конечно можно попытаться сделать, однако VBA будет проще.

Автор - bmv98rus
Дата добавления - 25.11.2017 в 20:54
victoriaa021 Дата: Суббота, 25.11.2017, 21:12 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Пробовала с помощью VBA, но давно с этим не сталкивалась, поэтому не вышло.
"Но ведь по сути вы и одну строку с данными (1401102300002 Нет )тоже удалили" - прикрепляя документ, я указала, что это примерный вариант преобразования, так скажем, желаемый.
Подойдет вариант, где есть строка (1401102300002 Нет ).
 
Ответить
СообщениеПробовала с помощью VBA, но давно с этим не сталкивалась, поэтому не вышло.
"Но ведь по сути вы и одну строку с данными (1401102300002 Нет )тоже удалили" - прикрепляя документ, я указала, что это примерный вариант преобразования, так скажем, желаемый.
Подойдет вариант, где есть строка (1401102300002 Нет ).

Автор - victoriaa021
Дата добавления - 25.11.2017 в 21:12
bmv98rus Дата: Суббота, 25.11.2017, 21:42 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 686
Репутация: 114 ±
Замечаний: 0% ±

Excel 2013/2016
victoriaa021,
Так покажите что у вас уже сделано и всеж переименуйте тему. Тут скорее преобразование таблицы в простую подходит.
А так все выглядит не сложно, каждое поле next говорит о том, есть ли в строке еще один блок данных с тем же кодом (kod_zach_knigi).два цикла по строкам и внутри по столбцам с проверкой этого поля и переносом данных в простую таблицу.
 
Ответить
Сообщениеvictoriaa021,
Так покажите что у вас уже сделано и всеж переименуйте тему. Тут скорее преобразование таблицы в простую подходит.
А так все выглядит не сложно, каждое поле next говорит о том, есть ли в строке еще один блок данных с тем же кодом (kod_zach_knigi).два цикла по строкам и внутри по столбцам с проверкой этого поля и переносом данных в простую таблицу.

Автор - bmv98rus
Дата добавления - 25.11.2017 в 21:42
victoriaa021 Дата: Суббота, 25.11.2017, 21:50 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
bmv98rus, именно поэтому сюда и пишу, что не могу сделать это самостоятельно в VBA.
 
Ответить
Сообщениеbmv98rus, именно поэтому сюда и пишу, что не могу сделать это самостоятельно в VBA.

Автор - victoriaa021
Дата добавления - 25.11.2017 в 21:50
bmv98rus Дата: Суббота, 25.11.2017, 23:08 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 686
Репутация: 114 ±
Замечаний: 0% ±

Excel 2013/2016
Ну, как вариант так. Если конечно количество полей не плавает. тогда надо корректировать.
К сообщению приложен файл: Copy_of_9679102.xlsm(19Kb)


Сообщение отредактировал bmv98rus - Суббота, 25.11.2017, 23:09
 
Ответить
СообщениеНу, как вариант так. Если конечно количество полей не плавает. тогда надо корректировать.

Автор - bmv98rus
Дата добавления - 25.11.2017 в 23:08
Manyasha Дата: Суббота, 25.11.2017, 23:17 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2028
Репутация: 843 ±
Замечаний: 0% ±

Excel 2010, 2016
Очень похожий вариант:
[vba]
Код
Sub test()
    Dim lr&, i&, k%, r&
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ThisWorkbook.Sheets(1)
    Set sh2 = ThisWorkbook.Sheets(2)
    
    sh2.Cells(1, 1).CurrentRegion.Offset(1).ClearContents
    With sh1
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        r = 2
        For i = 2 To lr
            k = 1
            Do While (.Cells(i, 3 + 6 * (k - 1)) <> "")
                sh2.Cells(r, 1) = .Cells(i, 1)
                sh2.Cells(r, 2).Resize(, 5).Value = .Cells(i, 3 + 6 * (k - 1)).Resize(, 5).Value
                r = r + 1
                k = k + 1
            Loop
        Next i
    End With
End Sub
[/vba]
К сообщению приложен файл: 9679102-1.xlsm(18Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеОчень похожий вариант:
[vba]
Код
Sub test()
    Dim lr&, i&, k%, r&
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ThisWorkbook.Sheets(1)
    Set sh2 = ThisWorkbook.Sheets(2)
    
    sh2.Cells(1, 1).CurrentRegion.Offset(1).ClearContents
    With sh1
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        r = 2
        For i = 2 To lr
            k = 1
            Do While (.Cells(i, 3 + 6 * (k - 1)) <> "")
                sh2.Cells(r, 1) = .Cells(i, 1)
                sh2.Cells(r, 2).Resize(, 5).Value = .Cells(i, 3 + 6 * (k - 1)).Resize(, 5).Value
                r = r + 1
                k = k + 1
            Loop
        Next i
    End With
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 25.11.2017 в 23:17
bmv98rus Дата: Суббота, 25.11.2017, 23:22 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 686
Репутация: 114 ±
Замечаний: 0% ±

Excel 2013/2016
Manyasha,
Ну да, с анализом Next я перебрал чуток. тем более что тримером пришлось пройти :-) .
 
Ответить
СообщениеManyasha,
Ну да, с анализом Next я перебрал чуток. тем более что тримером пришлось пройти :-) .

Автор - bmv98rus
Дата добавления - 25.11.2017 в 23:22
victoriaa021 Дата: Воскресенье, 26.11.2017, 01:21 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, всё получилось)
Manyasha, bmv98rus, Спасибо большое за помощь!
 
Ответить
СообщениеManyasha, всё получилось)
Manyasha, bmv98rus, Спасибо большое за помощь!

Автор - victoriaa021
Дата добавления - 26.11.2017 в 01:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование таблицы к простому виду (Формулы/Formulas)
Страница 1 из 11
Поиск:

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