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

Вход

Регистрация

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

 

= Мир MS Excel/макрос или формула для нестандартной транспонации - Мир MS Excel

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

Excel 2010
Доброго времени! По роду работы постоянно сталкиваюсь с проблемой перевода определенного формата данных в другой.
Во вложении маленький пример с данными. По моему мнению там нужно задействовать и поиск дублей, и сцепить и транспонирование, но как это свести воедино, ума не приложу. Может кто сможет что посоветовать? Заранее спасибо!
К сообщению приложен файл: 7646557.xlsx(11Kb)
 
Ответить
СообщениеДоброго времени! По роду работы постоянно сталкиваюсь с проблемой перевода определенного формата данных в другой.
Во вложении маленький пример с данными. По моему мнению там нужно задействовать и поиск дублей, и сцепить и транспонирование, но как это свести воедино, ума не приложу. Может кто сможет что посоветовать? Заранее спасибо!

Автор - 25регион
Дата добавления - 29.11.2016 в 03:35
krosav4ig Дата: Вторник, 29.11.2016, 04:59 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1362
Репутация: 548 ±
Замечаний: 0% ±

Excel 2007, 2013
Здравствуйте
можно через надстройку Power Query
К сообщению приложен файл: 7646557-1.xlsx(21Kb)


(_)Õvõ(_)
 
Ответить
СообщениеЗдравствуйте
можно через надстройку Power Query

Автор - krosav4ig
Дата добавления - 29.11.2016 в 04:59
Nic70y Дата: Вторник, 29.11.2016, 07:57 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3493
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013
вариант формулами с 2-мя доп.столбцами
К сообщению приложен файл: 0352347.xlsx(12Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениевариант формулами с 2-мя доп.столбцами

Автор - Nic70y
Дата добавления - 29.11.2016 в 07:57
25регион Дата: Пятница, 02.12.2016, 10:24 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо всем за ответы! Попробую оба варианта. (с Power Query не работал пока еще)
 
Ответить
СообщениеСпасибо всем за ответы! Попробую оба варианта. (с Power Query не работал пока еще)

Автор - 25регион
Дата добавления - 02.12.2016 в 10:24
Wasilich Дата: Суббота, 03.12.2016, 16:23 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 878
Репутация: 222 ±
Замечаний: 0% ±

2003
Макрос.
[vba]
Код
Sub макрос()
  Dim i&, n&, s&, x, y
  n = 1
  s = 3
  x = Cells(3, 2)
  y = Cells(3, 3)
  For i = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) = x Then
       y = y & ";" & Cells(i, 3)
    Else
       Cells(s, 6) = n: Cells(s, 7) = x: Cells(s, 8) = y
       n = n + 1: s = s + 1: x = "": y = ""
       x = Cells(i, 2)
       y = Cells(i, 3)
    End If
  Next
  Cells(s, 6) = n: Cells(s, 7) = x: Cells(s, 8) = y
End Sub
[/vba]
 
Ответить
СообщениеМакрос.
[vba]
Код
Sub макрос()
  Dim i&, n&, s&, x, y
  n = 1
  s = 3
  x = Cells(3, 2)
  y = Cells(3, 3)
  For i = 4 To Range("B" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) = x Then
       y = y & ";" & Cells(i, 3)
    Else
       Cells(s, 6) = n: Cells(s, 7) = x: Cells(s, 8) = y
       n = n + 1: s = s + 1: x = "": y = ""
       x = Cells(i, 2)
       y = Cells(i, 3)
    End If
  Next
  Cells(s, 6) = n: Cells(s, 7) = x: Cells(s, 8) = y
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 03.12.2016 в 16:23
Мир MS Excel » Вопросы и решения » Вопросы по Excel » макрос или формула для нестандартной транспонации (Формулы/Formulas)
Страница 1 из 11
Поиск:

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