Формирование базы В ТАБЛИЦЕ

Пользователь

Сообщений: 61 Регистрация: 31.07.2014

30.10.2017 17:01:14

Доброго времени суток, знатоки экселя!
Есть сложная задача:
имеем столбец 1 с и дополнительно 2 столбца "база" и категория"
надо получить следующий результат для Столбец 2 и Столбец 3
1.если в столбце "база" уникальное значение к примеру 1, то оно добавляется в Столбец 2 и под Столбец 3 подтягивается уникальное значение из "категория"
2.если "база" вторая ячейка совпадает с предыдущей, а в столбце "категория" новое уникальное значение, то надо в "Столбец 2" добавить базовые значения.
Пример во вложении!

Прикрепленные файлы

задача1.xlsx (10.2 КБ)

nilem

Пользователь

Сообщений: 837 Регистрация: 23.12.2012

30.10.2017 20:05:58

Здравствуйте!
Наверное, так

Код

Sub ertert()
Dim x, bz, y(), i&, j&, k&

x = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
bz = Range("E2:F" & Cells(Rows.Count, 5).End(xlUp).Row).Value
ReDim y(1 To UBound(x) * UBound(bz), 1 To 3)

For i = 2 To UBound(bz)
    For j = 2 To UBound(x)
        k = k + 1
        y(k, 1) = x(j, 1)
        y(k, 2) = bz(i, 1)
        y(k, 3) = bz(i, 2)
    Next j
Next i

Range("H3").Resize(k, 3).Value = y()
End Sub

opt Пользователь Сообщений: 61 Регистрация: 31.07.2014	#3 31.10.2017 10:02:52 Кнопка цитирования не для ответа [МОДЕРАТОР] Добрый день, nilem! а как это выполнить в файле? прошу показать это в файле с примером Спасибо!

Гаубица Пользователь Сообщений: 107 Регистрация: 25.07.2013	#4 31.10.2017 10:38:43 Добрый день. Вставил код nilem в файл во вложении. Макрос назначил на кнопку. P.S.: подробнее об этом тут Прикрепленные файлы задача1.xlsb (16.91 КБ)

opt Пользователь Сообщений: 61 Регистрация: 31.07.2014	#5 31.10.2017 11:40:26 nilem , спасибо вам большое! Все супер)))))))))))