Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11775
Последний выпуск: 19.06.2015

Подскажите пожалуйста как с помощью VBA в Excel объединить несколько таблиц в одну( при условии что имеется 1 общая колонка в двух таблицах)

88K
11 мая 2016 года
Frintezza
3 / / 11.05.2016
Подскажите пожалуйста как с помощью VBA в Excel объединить несколько таблиц в одну и сделать из них 3 общую таблицу на новом листе(при условии что имеется 1 общая колонка в двух таблицах)
Прикрепленные файлы:
9 Кб
Загрузок: 133
235
11 мая 2016 года
pashulka
977 / / 19.09.2004
Один из возможных вариантов :
 
Код:
Private Sub Test()
    With Лист2.Range(Лист2.Cells(2, 1), Лист2.Cells(Rows.Count, 1).End(xlUp))
         .Offset(, 2).NumberFormat = "dd/mm/yyyy"
         .Offset(, 2).Value = Application.VLookup(.Cells, Лист1.[A:B], 2, 0)
    End With
End Sub
88K
12 мая 2016 года
Frintezza
3 / / 11.05.2016
Спасибо большое!
88K
12 мая 2016 года
Frintezza
3 / / 11.05.2016
А вот еще один вопрос!
Как сделать тоже самое но уже на новом листе! Добавить 3 таблицу ! из двух сделать 3 общую???
235
12 мая 2016 года
pashulka
977 / / 19.09.2004
Можно сначала создать копию рабочего листа "Лист1", а затем, использовать стандартную функцию рабочего листа =ВПР()
 
Код:
Private Sub Test2()
    Лист2.Copy , Лист2 ' Worksheets("Лист1").Copy , Worksheets("Лист1")
    With Intersect(ActiveSheet.UsedRange.EntireRow, [C:C])
         .NumberFormat = "dd/mm/yyyy"
         .Value = Application.VLookup(.Offset(, -2), Лист1.[A:B], 2, 0)
         'При желании :
         .Columns.AutoFit
         .Replace "#N/A", "Не найдено" '"#N/A", ""
    End With
End Sub
235
14 мая 2016 года
pashulka
977 / / 19.09.2004
Frintezza, Если результат, полученный после выполнения второго макроса, Вас не устраивает, то можете опубликовать свой вариант общей таблицы. Это позволит наглядно увидеть Ваши запросы.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог