Создание списка паспортов по типу изделия

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка паспортов по типу изделия (Формулы/Formulas)

san4ezz

Дата: Воскресенье, 04.09.2016, 22:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Прошу прощения, если нарушаю правила форума, очень спешу. Завтра нужно сделать списки паспортов на изделия, что вручную нереально. Так вот в чем дело: необходимо сделать список паспортов через точку с запятой(;) по типу изделия и этаж-секции (пример в файле). Заранее благодарю за любую помощь

К сообщению приложен файл: 1301038.xlsx (87.8 Kb)

Сообщение отредактировал san4ezz - Воскресенье, 04.09.2016, 22:39

Ответить

buchlotnik

Дата: Воскресенье, 04.09.2016, 23:05 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

кусок пришлось отрезать - много данных -сначала последовательно сортируем по типу, секции, этажу, далее вынималка чисто формульная, далее фильтр по этажу

К сообщению приложен файл: 1301038.xlsb (87.5 Kb)

Сообщение отредактировал buchlotnik - Воскресенье, 04.09.2016, 23:08

Ответить

buchlotnik

Дата: Понедельник, 05.09.2016, 00:36 | Сообщение № 3

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

ну или макросом: [vba]

Код

Sub sort_()
    f = Cells.SpecialCells(xlLastCell).Row
    j = 0
    For i = 1 To f
        If [a1].Offset(i, 2) <> [a1].Offset(i - 1, 2) Or [a1].Offset(i, 3) <> [a1].Offset(i - 1, 3) Then
            j = j + 1
            [g1].Offset(j, 0) = ""
            j = j + 1
            [g1].Offset(j, 0) = "Этаж " & [a1].Offset(i, 2)
            j = j + 1
            [g1].Offset(j, 0) = "Секция " & [a1].Offset(i, 3)
         End If
            If [a1].Offset(i, 4) <> [a1].Offset(i - 1, 4) Then
            j = j + 1
            [g1].Offset(j, 0) = [a1].Offset(i, 4)
            End If
            If [g1].Offset(j, 1) = "" Then
             [g1].Offset(j, 1) = [a1].Offset(i, 1)
            Else
            [g1].Offset(j, 1) = [g1].Offset(j, 1) & "; " & [a1].Offset(i, 1)
            End If
    Next i
End Sub

[/vba]

К сообщению приложен файл: 1301038-1-.xlsb (58.5 Kb)

Сообщение отредактировал buchlotnik - Понедельник, 05.09.2016, 00:41

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание списка паспортов по типу изделия (Формулы/Formulas)

Страница 1 из 1
1