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

Версия для слабовидящих

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

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

Как в одной таблице получить данные из другой (Формулы/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

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

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

Сообщений: 9130

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

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

Excel 2010

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

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

ЮMoney 41001841029809

Ответить

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

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

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

Сообщений: 1369

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

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

нет

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

=ИНДЕКС('1 таблица - источник'.$C$2:$C$30;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ('1 таблица - источник'.$C$2:$C$30;'1 таблица - источник'.$C$2:$C$30;0)='1 таблица - источник'.$A$2:$A$30;ПОИСКПОЗ('1 таблица - источник'.$C$2:$C$30;'1 таблица - источник'.$C$2:$C$30;0);"");СТРОКА(A1)))

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

=ЕСЛИОШИБКА(ИНДЕКС('1 таблица - источник'.$B$2:$B$30;НАИМЕНЬШИЙ(ЕСЛИ($B10='1 таблица - источник'.$C$2:$C$30;СТРОКА('1 таблица - источник'.$B$2:$B$30)-1;"");СТОЛБЕЦ(A1)));"")

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

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

Ответить

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

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

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

Сообщений: 9130

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

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

Excel 2010

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

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

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

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

К сообщению приложен файл: 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 IsЧumeric(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 = Тrue .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = Тrue End With Application.ScreenUpdating = ТrueEnd Sub

[/vba]

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

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

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

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

Сообщений: 1369

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

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

нет

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

писал(а)):

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

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

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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

Сообщений: 9130

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

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

Excel 2010

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

писал(а)):

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

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

ЮMoney 41001841029809

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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

Сообщений: 1369

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

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

нет

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

писал(а)):

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

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

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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

Сообщений: 30

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

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

2021

Nic70y,

hands

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

Ответить

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

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

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

Сообщений: 9130

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

Замечаний: 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

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

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

Сообщений: 30

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

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

2021

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

Ответить

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

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

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