Как в одной таблице получить данные из другой - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как в одной таблице получить данные из другой - Мир MS Excel

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

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

Как в одной таблице получить данные из другой (Формулы/Formulas)

Как в одной таблице получить данные из другой

ldbaikal20202131

Дата: Среда, 29.11.2023, 05:25 | Сообщение № 1

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

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

Сообщений: 1

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

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

2019

Всем привет. Прошу помочь. Как в одной таблице получить данные из другой так чтоб данные из столбца одной выводились в строку в другой с помощью формул и чтоб при добавлении в 1-ю таблицу данных, автоматически добавлялись данные во 2-ю?
Для понимания прилагаю две таблички на двух станицах с уже готовым результатом, сделанные без формул.
Заранее, благодарю за помощь.

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

Ответить

Дата: Среда, 29.11.2023, 11:15 | Сообщение № 2

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

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

Сообщений: 9005

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

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

Excel 2010

с доп.столбами

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

ЮMoney 41001841029809

Ответить

Дата: Среда, 29.11.2023, 11:16 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1267

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

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

нет

ldbaikal20202131,
для поиска уникальных

Код

=INDEX('1 таблица - источник'.$C$2:$C$30;SMALL(IF(MATCH('1 таблица - источник'.$C$2:$C$30;'1 таблица - источник'.$C$2:$C$30;0)='1 таблица - источник'.$A$2:$A$30;MATCH('1 таблица - источник'.$C$2:$C$30;'1 таблица - источник'.$C$2:$C$30;0);"");ROW(A1)))

Для вытаскивания каталогов

Код

=IFERROR(INDEX('1 таблица - источник'.$B$2:$B$30;SMALL(IF($B10='1 таблица - источник'.$C$2:$C$30;ROW('1 таблица - источник'.$B$2:$B$30)-1;"");COLUMN(A1)));"")

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

Ответить

Дата: Среда, 29.11.2023, 15:10 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Всем, большое спасибо, особенно: bigor и Nic70y.
Сам бы я ни за что не смог это сделать.

Ответить

Дата: Среда, 29.11.2023, 16:04 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Вопрос вам можно задать?
Мне надо так сделать, чтоб при добавлении в 1-ю таблицу, соответствующая информация появлялась во второй, но с такими формулами как сейчас, это не получается, тем более я так понимаю, что заморожены именно только эти значения: $C$2:$C$30 и $A$2:$A$30 и $B$2:$B$30, значит только с ними и работает формула. Возможно всё таки сделать так как я хочу или нет?

Сообщение отредактировал Месник - Среда, 29.11.2023, 16:05

Ответить

Дата: Среда, 29.11.2023, 16:53 | Сообщение № 6

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

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

Сообщений: 9005

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

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

Excel 2010

может макрос подойдет
[vba]

Код

Sub u_75()
    Application.ScreenUpdating = False
    Sheets("2-я таблица - результат").UsedRange.Clear
    a = Cells(Rows.Count, "a").End(xlUp).Row
        g = 3
    For b = 2 To a
        c = Range("c" & b).Value
        d = Application.Match(c, Sheets("2-я таблица - результат").Range("b:b"), 0)
        If IsNumeric(d) Then
            f = Sheets("2-я таблица - результат").Cells(d, Columns.Count).End(xlToLeft).Column + 1
            Sheets("2-я таблица - результат").Cells(d, f) = Range("b" & b).Value
            If f > g Then g = f
        Else
            e = Sheets("2-я таблица - результат").Cells(Rows.Count, "a").End(xlUp).Row + 1
            Sheets("2-я таблица - результат").Range("a" & e) = Sheets("2-я таблица - результат").Range("a" & e - 1) + 1
            Sheets("2-я таблица - результат").Range("b" & e) = "'" & Range("c" & b).Value
            Sheets("2-я таблица - результат").Range("c" & e) = Range("b" & b).Value
        End If
    Next
    Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 3), Sheets("2-я таблица - результат").Cells(1, g)) = "№ каталога"
    Sheets("2-я таблица - результат").Range("a1") = "№ поз"
    Sheets("2-я таблица - результат").Range("b1") = "шифр"
    With Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 1), Sheets("2-я таблица - результат").Cells(1, g))
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]

может макрос подойдет
[vba]

Код

Sub u_75()
    Application.ScreenUpdating = False
    Sheets("2-я таблица - результат").UsedRange.Clear
    a = Cells(Rows.Count, "a").End(xlUp).Row
        g = 3
    For b = 2 To a
        c = Range("c" & b).Value
        d = Application.Match(c, Sheets("2-я таблица - результат").Range("b:b"), 0)
        If IsNumeric(d) Then
            f = Sheets("2-я таблица - результат").Cells(d, Columns.Count).End(xlToLeft).Column + 1
            Sheets("2-я таблица - результат").Cells(d, f) = Range("b" & b).Value
            If f > g Then g = f
        Else
            e = Sheets("2-я таблица - результат").Cells(Rows.Count, "a").End(xlUp).Row + 1
            Sheets("2-я таблица - результат").Range("a" & e) = Sheets("2-я таблица - результат").Range("a" & e - 1) + 1
            Sheets("2-я таблица - результат").Range("b" & e) = "'" & Range("c" & b).Value
            Sheets("2-я таблица - результат").Range("c" & e) = Range("b" & b).Value
        End If
    Next
    Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 3), Sheets("2-я таблица - результат").Cells(1, g)) = "№ каталога"
    Sheets("2-я таблица - результат").Range("a1") = "№ поз"
    Sheets("2-я таблица - результат").Range("b1") = "шифр"
    With Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 1), Sheets("2-я таблица - результат").Cells(1, g))
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]Nic70y

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

ЮMoney 41001841029809

Ответить

Сообщениеможет макрос подойдет
[vba]

Код

Sub u_75()
    Application.ScreenUpdating = False
    Sheets("2-я таблица - результат").UsedRange.Clear
    a = Cells(Rows.Count, "a").End(xlUp).Row
        g = 3
    For b = 2 To a
        c = Range("c" & b).Value
        d = Application.Match(c, Sheets("2-я таблица - результат").Range("b:b"), 0)
        If IsNumeric(d) Then
            f = Sheets("2-я таблица - результат").Cells(d, Columns.Count).End(xlToLeft).Column + 1
            Sheets("2-я таблица - результат").Cells(d, f) = Range("b" & b).Value
            If f > g Then g = f
        Else
            e = Sheets("2-я таблица - результат").Cells(Rows.Count, "a").End(xlUp).Row + 1
            Sheets("2-я таблица - результат").Range("a" & e) = Sheets("2-я таблица - результат").Range("a" & e - 1) + 1
            Sheets("2-я таблица - результат").Range("b" & e) = "'" & Range("c" & b).Value
            Sheets("2-я таблица - результат").Range("c" & e) = Range("b" & b).Value
        End If
    Next
    Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 3), Sheets("2-я таблица - результат").Cells(1, g)) = "№ каталога"
    Sheets("2-я таблица - результат").Range("a1") = "№ поз"
    Sheets("2-я таблица - результат").Range("b1") = "шифр"
    With Sheets("2-я таблица - результат").Range(Sheets("2-я таблица - результат").Cells(1, 1), Sheets("2-я таблица - результат").Cells(1, g))
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]

Автор - Nic70y
Дата добавления - 29.11.2023 в 16:53

Дата: Среда, 29.11.2023, 16:54 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 1267

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

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

нет

Цитата Месник, 29.11.2023 в 16:04, в сообщении № 5 (

)

Возможно всё таки сделать так как я хочу

возможно
Поправил файл, теперь до 100 строки, если нужно больше, то меняете все 100 на нужное значение, и на первом листе, протягиваете формулу в столбце C сколько нужно.
ps у вас 2021 офис, там уже есть =фильтр() и первая формула сильно укорачивается с ним

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

Ответить

Дата: Среда, 29.11.2023, 17:09 | Сообщение № 8

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Nic70y, Кстати у вас в отличии от решения bigor, можно добавлять в первую таблицу данные и они автоматически появятся во второй таблице. Но как можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?

Ответить

Дата: Среда, 29.11.2023, 17:13 | Сообщение № 9

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

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

Сообщений: 9005

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

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

Excel 2010

Цитата Месник, 29.11.2023 в 17:09, в сообщении № 8 (

)

сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?

ну это точно макросом, но смогу написать только завтра,
т.к. заканчивается рабочий день,
а дома нельзя пользоваться экселем - только пить водку.

ЮMoney 41001841029809

Ответить

Дата: Среда, 29.11.2023, 17:18 | Сообщение № 10

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

Ранг: Новичок

Сообщений: 22

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

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

2021

bigor, при удалении любой строки в 1-й таблице, всё исчезает во 2-й, этого никак не избежать? и можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?

Ответить

Дата: Среда, 29.11.2023, 17:22 | Сообщение № 11

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

Ранг: Старожил

Сообщений: 1267

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

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

нет

Цитата Месник, 29.11.2023 в 17:18, в сообщении № 10 (

)

этого никак не избежать?

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

Сообщение отредактировал bigor - Среда, 29.11.2023, 17:28

Ответить

Дата: Среда, 29.11.2023, 17:28 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 22

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

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

2021

bigor, Ясно, но и на этом большое спасибо. :ok:

Ответить

Дата: Среда, 29.11.2023, 17:29 | Сообщение № 13

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Nic70y, Большое спасибо, ничего, подождём. :ok:

Ответить

Дата: Среда, 29.11.2023, 17:48 | Сообщение № 14

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Nic70y,

hands

Спасибо БОЛЬШОЕ, очень и очень помогли. Теперь мне надо разобраться как этот макрос вставить в другие документы.

Ответить

Дата: Четверг, 30.11.2023, 09:27 | Сообщение № 15

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

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

Сообщений: 9005

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

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

Excel 2010

Цитата Месник, 29.11.2023 в 17:48, в сообщении № 14 (

)

как этот макрос вставить в другие документы

1) сохраните файл как:
тип файла: книга с поддержкой макросов
или - двоичная книга
2) нажмите Alt+F11
3) см. картинку

4) в созданный модуль скопипастить макросы
5) "2-я таблица - результат" заменить на правильное имя листа
6) нарисовать кнопки и присвоить им макросы

макросы в файле

К сообщению приложен файл: 19.xlsm (27.2 Kb) · 4921291.gif (16.1 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 30.11.2023, 09:29

Ответить

Дата: Четверг, 30.11.2023, 15:52 | Сообщение № 16

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

Ранг: Новичок

Сообщений: 22

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

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

2021

Nic70y, СПАСИБО ВАМ БОЛЬШОЕ. Буду пробовать, никогда этим не занимался. :ok:

Ответить

Как в одной таблице получить данные из другой (Формулы/Formulas)

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

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