Доброго времени! По роду работы постоянно сталкиваюсь с проблемой перевода определенного формата данных в другой. Во вложении маленький пример с данными. По моему мнению там нужно задействовать и поиск дублей, и сцепить и транспонирование, но как это свести воедино, ума не приложу. Может кто сможет что посоветовать? Заранее спасибо!
Доброго времени! По роду работы постоянно сталкиваюсь с проблемой перевода определенного формата данных в другой. Во вложении маленький пример с данными. По моему мнению там нужно задействовать и поиск дублей, и сцепить и транспонирование, но как это свести воедино, ума не приложу. Может кто сможет что посоветовать? Заранее спасибо!25регион
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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
