создание из одной таблицы другую

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

создание из одной таблицы другую (Формулы/Formulas)

tachtm

Дата: Четверг, 17.04.2025, 16:38 | Сообщение № 1

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

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

Сообщений: 2

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

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

2021

Здравствуйте чето никак не получается придумать формулу для создания укороченную таблицу пожалуйста помогите советами и направьте в правильное русло мое скромное мышление по вопросом екселя. Спасибо.

К сообщению приложен файл: kniga1.xls (29.0 Kb)

Ответить

Nic70y

Дата: Четверг, 17.04.2025, 17:09 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9120

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

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

Excel 2010

в красных формула массива, в желтых обычные

[p.s.]будет работать, если строка пришел будет выше строки ушел[/p.s.]

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

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 17.04.2025, 17:14

Ответить

i691198

Дата: Четверг, 17.04.2025, 18:35 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410

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

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

2016

В профиле ТС указана версия 2021, значит для "красных" можно использовать формулу

Код

=УНИК(D3:D12)

Ответить

tachtm

Дата: Пятница, 18.04.2025, 09:27 | Сообщение № 4

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

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

Сообщений: 2

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

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

2021

Привет спасибо! кое как посмотрел но чето все равно не получается особенно если условия разные, например отсутствуют или вход ил выход и как сказал может быт изменен порядок. есть одна таблица первая (обозначил цыфрой 1) по идее надо из этой таблицы упростит в создать таблицу 2. По формулам получается 3 и 4 таблица вот 4 таблица вродебы нормально получается но есть некоторые ошибки хотел обойти и создал 5 таблицу получился вопше не понятно что вродебы должен сработать но нет. Спасибо!

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

Сообщение отредактировал tachtm - Пятница, 18.04.2025, 09:28

Ответить

Nic70y

Дата: Пятница, 18.04.2025, 10:35 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9120

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

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

Excel 2010

[vba]

Код

Sub u_96()
    'выключаем обновление экрана
    Application.ScreenUpdating = False
    'очистим старые данные
    u = Cells(Rows.Count, "h").End(xlUp).Row + 1
    Range("g2:l" & u).Clear
    'нижняя заполненная строка столбца B
    a = Cells(Rows.Count, "b").End(xlUp).Row
    'цикл от 2-й до нижней строки
    For c = 2 To a
        'ФИО очередной строки
        d = Range("b" & c).Value
        'ищем ФИО в столбце H
        e = Application.Match(d, Range("h:h"), 0)
        'если фио не найдено
        If IsNumeric(e) = False Then
            'определим строку вставки
            e = Cells(Rows.Count, "h").End(xlUp).Row + 1
            'нарисуем сетку
            Range("g" & e & ":l" & e).Borders.LineStyle = xlContinuous
            'запишем ФИО
            Range("h" & e) = d
            'напишем нет
            Range("i" & e & ":l" & e) = "нет"
            'порядковый номер
            f = Range("g" & e - 1).Value 'значение выше ячейки
            If c = 2 Then f = 0 'если это 2-я строка
            Range("g" & e) = f + 1
        End If
        'Действия
        g = Range("c" & c).Value
        'определим столбец вставки
        If g = "Пришол" Then j = "i"
        If g = "Ушол" Then j = "k"
        'копируем вставляем время и дверь
        Range("d" & c & ":e" & c).Copy Range(j & e)
    Next
    'включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

[/vba]

[vba]

Код