Как в одной таблице получить данные из другой
ldbaikal20202131
Дата: Среда, 29.11.2023, 05:25 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация:
0
±
Замечаний:
0% ±
2019
Всем привет. Прошу помочь. Как в одной таблице получить данные из другой так чтоб данные из столбца одной выводились в строку в другой с помощью формул и чтоб при добавлении в 1-ю таблицу данных, автоматически добавлялись данные во 2-ю? Для понимания прилагаю две таблички на двух станицах с уже готовым результатом, сделанные без формул. Заранее, благодарю за помощь.
Всем привет. Прошу помочь. Как в одной таблице получить данные из другой так чтоб данные из столбца одной выводились в строку в другой с помощью формул и чтоб при добавлении в 1-ю таблицу данных, автоматически добавлялись данные во 2-ю? Для понимания прилагаю две таблички на двух станицах с уже готовым результатом, сделанные без формул. Заранее, благодарю за помощь. ldbaikal20202131
Ответить
Сообщение Всем привет. Прошу помочь. Как в одной таблице получить данные из другой так чтоб данные из столбца одной выводились в строку в другой с помощью формул и чтоб при добавлении в 1-ю таблицу данных, автоматически добавлялись данные во 2-ю? Для понимания прилагаю две таблички на двух станицах с уже готовым результатом, сделанные без формул. Заранее, благодарю за помощь. Автор - ldbaikal20202131 Дата добавления - 29.11.2023 в 05:25
Nic70y
Дата: Среда, 29.11.2023, 11:15 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
с доп.столбами
К сообщению приложен файл:
18.xlsx
(13.1 Kb)
ЮMoney 41001841029809
Ответить
Сообщение с доп.столбами Автор - Nic70y Дата добавления - 29.11.2023 в 11:15
bigor
Дата: Среда, 29.11.2023, 11:16 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
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)));"")
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)));"")
bigor
Ответить
Сообщение 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)));"")
Автор - bigor Дата добавления - 29.11.2023 в 11:16
Месник
Дата: Среда, 29.11.2023, 15:10 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Всем, большое спасибо, особенно: bigor и Nic70y. Сам бы я ни за что не смог это сделать.
Всем, большое спасибо, особенно: bigor и Nic70y. Сам бы я ни за что не смог это сделать. Месник
Ответить
Сообщение Всем, большое спасибо, особенно: bigor и Nic70y. Сам бы я ни за что не смог это сделать. Автор - Месник Дата добавления - 29.11.2023 в 15:10
Месник
Дата: Среда, 29.11.2023, 16:04 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Вопрос вам можно задать? Мне надо так сделать, чтоб при добавлении в 1-ю таблицу, соответствующая информация появлялась во второй, но с такими формулами как сейчас, это не получается, тем более я так понимаю, что заморожены именно только эти значения: $C$2:$C$30 и $A$2:$A$30 и $B$2:$B$30, значит только с ними и работает формула. Возможно всё таки сделать так как я хочу или нет?
Вопрос вам можно задать? Мне надо так сделать, чтоб при добавлении в 1-ю таблицу, соответствующая информация появлялась во второй, но с такими формулами как сейчас, это не получается, тем более я так понимаю, что заморожены именно только эти значения: $C$2:$C$30 и $A$2:$A$30 и $B$2:$B$30, значит только с ними и работает формула. Возможно всё таки сделать так как я хочу или нет? Месник
Сообщение отредактировал Месник - Среда, 29.11.2023, 16:05
Ответить
Сообщение Вопрос вам можно задать? Мне надо так сделать, чтоб при добавлении в 1-ю таблицу, соответствующая информация появлялась во второй, но с такими формулами как сейчас, это не получается, тем более я так понимаю, что заморожены именно только эти значения: $C$2:$C$30 и $A$2:$A$30 и $B$2:$B$30, значит только с ними и работает формула. Возможно всё таки сделать так как я хочу или нет? Автор - Месник Дата добавления - 29.11.2023 в 16:04
Nic70y
Дата: Среда, 29.11.2023, 16:53 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
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
Ю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
bigor
Дата: Среда, 29.11.2023, 16:54 |
Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
Возможно всё таки сделать так как я хочу
возможно Поправил файл, теперь до 100 строки, если нужно больше, то меняете все 100 на нужное значение, и на первом листе, протягиваете формулу в столбце C сколько нужно. ps у вас 2021 офис, там уже есть =фильтр() и первая формула сильно укорачивается с ним
Возможно всё таки сделать так как я хочу
возможно Поправил файл, теперь до 100 строки, если нужно больше, то меняете все 100 на нужное значение, и на первом листе, протягиваете формулу в столбце C сколько нужно. ps у вас 2021 офис, там уже есть =фильтр() и первая формула сильно укорачивается с нимbigor
Ответить
Сообщение Возможно всё таки сделать так как я хочу
возможно Поправил файл, теперь до 100 строки, если нужно больше, то меняете все 100 на нужное значение, и на первом листе, протягиваете формулу в столбце C сколько нужно. ps у вас 2021 офис, там уже есть =фильтр() и первая формула сильно укорачивается с нимАвтор - bigor Дата добавления - 29.11.2023 в 16:54
Месник
Дата: Среда, 29.11.2023, 17:09 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Nic70y, Кстати у вас в отличии от решения bigor, можно добавлять в первую таблицу данные и они автоматически появятся во второй таблице. Но как можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?
Nic70y, Кстати у вас в отличии от решения bigor, можно добавлять в первую таблицу данные и они автоматически появятся во второй таблице. Но как можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке? Месник
Ответить
Сообщение Nic70y, Кстати у вас в отличии от решения bigor, можно добавлять в первую таблицу данные и они автоматически появятся во второй таблице. Но как можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке? Автор - Месник Дата добавления - 29.11.2023 в 17:09
Nic70y
Дата: Среда, 29.11.2023, 17:13 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?
ну это точно макросом, но смогу написать только завтра, т.к. заканчивается рабочий день, а дома нельзя пользоваться экселем - только пить водку.
сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?
ну это точно макросом, но смогу написать только завтра, т.к. заканчивается рабочий день, а дома нельзя пользоваться экселем - только пить водку.Nic70y
ЮMoney 41001841029809
Ответить
Сообщение сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?
ну это точно макросом, но смогу написать только завтра, т.к. заканчивается рабочий день, а дома нельзя пользоваться экселем - только пить водку.Автор - Nic70y Дата добавления - 29.11.2023 в 17:13
Месник
Дата: Среда, 29.11.2023, 17:18 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
bigor, при удалении любой строки в 1-й таблице, всё исчезает во 2-й, этого никак не избежать? и можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке?
bigor, при удалении любой строки в 1-й таблице, всё исчезает во 2-й, этого никак не избежать? и можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке? Месник
Ответить
Сообщение bigor, при удалении любой строки в 1-й таблице, всё исчезает во 2-й, этого никак не избежать? и можно сделать так, чтоб я мог в первую таблицу добавлять информацию сверху, в 1-ю строку, а во второй таблице эта информация появлялась снизу, в последней строке? Автор - Месник Дата добавления - 29.11.2023 в 17:18
bigor
Дата: Среда, 29.11.2023, 17:22 |
Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 1228
Репутация:
236
±
Замечаний:
0% ±
нет
формулами нельзя, и второй вопрос формулами не решить. ps вы оговорите все условия, а то завтра Nic70y макрос напишет, а окажется если вы во вторую строку данные вводите, нужно что бы они в предпоследней появились или еще чего.
формулами нельзя, и второй вопрос формулами не решить. ps вы оговорите все условия, а то завтра Nic70y макрос напишет, а окажется если вы во вторую строку данные вводите, нужно что бы они в предпоследней появились или еще чего. bigor
Сообщение отредактировал bigor - Среда, 29.11.2023, 17:28
Ответить
Сообщение формулами нельзя, и второй вопрос формулами не решить. ps вы оговорите все условия, а то завтра Nic70y макрос напишет, а окажется если вы во вторую строку данные вводите, нужно что бы они в предпоследней появились или еще чего. Автор - bigor Дата добавления - 29.11.2023 в 17:22
Месник
Дата: Среда, 29.11.2023, 17:28 |
Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
bigor, Ясно, но и на этом большое спасибо. :ok:
bigor, Ясно, но и на этом большое спасибо. :ok: Месник
Ответить
Сообщение bigor, Ясно, но и на этом большое спасибо. :ok: Автор - Месник Дата добавления - 29.11.2023 в 17:28
Месник
Дата: Среда, 29.11.2023, 17:29 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Nic70y, Большое спасибо, ничего, подождём. :ok:
Nic70y, Большое спасибо, ничего, подождём. :ok: Месник
Ответить
Сообщение Nic70y, Большое спасибо, ничего, подождём. :ok: Автор - Месник Дата добавления - 29.11.2023 в 17:29
Месник
Дата: Среда, 29.11.2023, 17:48 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Nic70y, Спасибо БОЛЬШОЕ, очень и очень помогли. Теперь мне надо разобраться как этот макрос вставить в другие документы.
Nic70y, Спасибо БОЛЬШОЕ, очень и очень помогли. Теперь мне надо разобраться как этот макрос вставить в другие документы. Месник
Ответить
Сообщение Nic70y, Спасибо БОЛЬШОЕ, очень и очень помогли. Теперь мне надо разобраться как этот макрос вставить в другие документы. Автор - Месник Дата добавления - 29.11.2023 в 17:48
Nic70y
Дата: Четверг, 30.11.2023, 09:27 |
Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 8937
Репутация:
2337
±
Замечаний:
0% ±
Excel 2010
как этот макрос вставить в другие документы
1) сохраните файл как: тип файла: книга с поддержкой макросов или - двоичная книга 2) нажмите Alt+F11 3) см. картинку 4) в созданный модуль скопипастить макросы 5) "2-я таблица - результат" заменить на правильное имя листа 6) нарисовать кнопки и присвоить им макросы макросы в файле
как этот макрос вставить в другие документы
1) сохраните файл как: тип файла: книга с поддержкой макросов или - двоичная книга 2) нажмите Alt+F11 3) см. картинку 4) в созданный модуль скопипастить макросы 5) "2-я таблица - результат" заменить на правильное имя листа 6) нарисовать кнопки и присвоить им макросы макросы в файлеNic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Четверг, 30.11.2023, 09:29
Ответить
Сообщение как этот макрос вставить в другие документы
1) сохраните файл как: тип файла: книга с поддержкой макросов или - двоичная книга 2) нажмите Alt+F11 3) см. картинку 4) в созданный модуль скопипастить макросы 5) "2-я таблица - результат" заменить на правильное имя листа 6) нарисовать кнопки и присвоить им макросы макросы в файлеАвтор - Nic70y Дата добавления - 30.11.2023 в 09:27
Месник
Дата: Четверг, 30.11.2023, 15:52 |
Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация:
0
±
Замечаний:
0% ±
2021
Nic70y, СПАСИБО ВАМ БОЛЬШОЕ. Буду пробовать, никогда этим не занимался. :ok:
Nic70y, СПАСИБО ВАМ БОЛЬШОЕ. Буду пробовать, никогда этим не занимался. :ok: Месник
Ответить
Сообщение Nic70y, СПАСИБО ВАМ БОЛЬШОЕ. Буду пробовать, никогда этим не занимался. :ok: Автор - Месник Дата добавления - 30.11.2023 в 15:52