Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2013, 12:56   #1
vitvil
Новичок
Джуниор
 
Регистрация: 12.08.2013
Сообщений: 3
По умолчанию Объеденение двух таблиц

Всем привет! Помогите пожалуйста, у меня есть две таблицы,мне необходимо из Таблицы 2 скопировать данные всего дома Иванова Ленина 60 из столбцов HEATING COLDWATER HOTWATER WATERDRAIN в Таблицу 1, что бы было сопоставления адреса, так как адреса в таблицах могут отсутствовать или раскиданы по таблице.
Например Иванова Ленина 60-4 в двух таблицах присутствуют значит необходимо скопировать из Таблицы 2 в Таблицу 1 данные, а если взять Иванова Ленина 60-5 то в одной из таблицы это адреса нету, значит копировать не нужно.
Вложения
Тип файла: zip Таблицы.zip (279.2 Кб, 11 просмотров)
vitvil вне форума Ответить с цитированием
Старый 12.08.2013, 13:45   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Т.е. нужно из одной таблицы скопировать данные в другую поверх существующих данных?
Если делать макросом - то взять данные первой таблицы в массив, одним циклом запомнить в словаре ключи CITY|STREET|NUMBER|FLAT|ROOM c номером строки.
Затем аналогично вторую таблицу в массив -> цикл -> ключ -> ищем его в словаре -> если есть, то извлекаем номер строки -> копируем в эту строку данные (из массива в массив).
В конце выгружаем первый массив назад.
Только разберитесь с LS - что-то там совсем не совпадает...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 12.08.2013, 14:19   #3
vitvil
Новичок
Джуниор
 
Регистрация: 12.08.2013
Сообщений: 3
По умолчанию

Да,вы все правильно поняли.По поводу LS то это поле не имеет ни какого значения,его не нужно брать во внимание.Извините,но я с макросами не дружу.Может есть еще какие ни будь варианты?
vitvil вне форума Ответить с цитированием
Старый 12.08.2013, 14:31   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Другой способ -
1. делаете в каждой таблице доп.столбец, где собираете с помощью СЦЕПИТЬ() или амперсанда ключ (с разделителями между значениями).
2. с помощью ВПР() или СЧЁТЕСЛИ() ищите наличие соответствия между таблицами по этим ключам.
3. в первой таблице удаляете строки, у которых есть пара.
4. из второй таблицы копируете в первую (в конец) строки, у которых БЫЛА пара (т.е. до операций удаления/копирования меняете формулы на значения!)
5. прибегаете к помощи сортировки или фильтра при отборе строк на удаление/копирование, ну и в конце сортировкой наводите порядок.

! Сперва вторую таблицу синхронизируете с перовой по столбцам - там есть несоответствие!

Вообще проделать это вручную будет быстрее, чем писать макрос. Я бы делал вручную. Если это разовая работа конечно.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 12.08.2013, 14:49   #5
vitvil
Новичок
Джуниор
 
Регистрация: 12.08.2013
Сообщений: 3
По умолчанию

Спасибо,буду смотреть.Несоответствие есть,забыл во второй таблице удалить столбец Suffix.Работа не разовая,это я взял один дома,а таких домов у меня много.
vitvil вне форума Ответить с цитированием
Старый 12.08.2013, 15:48   #6
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Кросс:
http://www.excelworld.ru/forum/10-5737-1
http://www.planetaexcel.ru/forum/ind...ID=1&TID=50380
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объеденение двух функций в одной ячейке mssod Microsoft Office Excel 3 04.02.2012 23:46
объеденение данных из двух таблиц yuriybel Microsoft Office Access 0 11.01.2011 22:35
Запрос из двух таблиц SERG1980 БД в Delphi 8 18.11.2010 23:05
связь двух таблиц cub Microsoft Office Excel 11 03.08.2009 18:45
Объеденение 2-х таблиц Stanislav БД в Delphi 3 28.07.2008 09:44