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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.01.2008, 02:02   #1
Funky_man
 
Регистрация: 04.01.2008
Сообщений: 6
По умолчанию Сведение таблиц

Вопрос такой:

есть данные с таблицы 1 и те же данные, но немного измененные с таблицы 2

Как объеденить две таблицы так чтобы дублирующиеся строки не повторялись, а новые добавлялись

табл1 табл2 объединен
1 4 1
2 5 2
3 6 4
4 7 5
5 8 6
7
8
Funky_man вне форума
Старый 09.01.2008, 07:20   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Если я правильно понял, в результирующей таблице должны быть данные, например, первой таблицы и добавленные к ней несовпадающие данные из второй таблицы. Тогда, например, так:
Пусть столбец "A" - первая таблица, столбец "B" - вторая. В столбце "C" нужный результат получим, выполнив следующий макрос:
Код:
Sub ConvTab()

    Dim i As Long, j As Long
    Columns(3).ClearContents
    Columns(1).Copy Range("C1")
    For i = 1 To Range("B65536").End(xlUp).Row
        For j = 1 To Range("A65536").End(xlUp).Row
            If Cells(i, 2) = Cells(j, 1) Then GoTo Metka
        Next j
        Cells(Range("C65536").End(xlUp).Row + 1, 3) = Cells(i, 2)
Metka: Next i

End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сведение нескольких таблиц в одну Sega Microsoft Office Excel 3 05.08.2008 15:21
Объеденение 2-х таблиц Stanislav БД в Delphi 3 28.07.2008 09:44
Сведение таблиц Funky_man Microsoft Office Excel 1 08.01.2008 03:36
Создание таблиц MAcK Общие вопросы Delphi 4 07.11.2007 15:51
Обновление таблиц Office Microsoft Office Excel 1 31.07.2007 09:09