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
Подскажите пожалуйста как с помощью VBA в Excel объединить несколько таблиц в одну( при условии что имеется 1 общая колонка в двух таблицах)
Подскажите пожалуйста как с помощью VBA в Excel объединить несколько таблиц в одну и сделать из них 3 общую таблицу на новом листе(при условии что имеется 1 общая колонка в двух таблицах)
Спасибо большое!
А вот еще один вопрос!
Как сделать тоже самое но уже на новом листе! Добавить 3 таблицу ! из двух сделать 3 общую???
Как сделать тоже самое но уже на новом листе! Добавить 3 таблицу ! из двух сделать 3 общую???
Можно сначала создать копию рабочего листа "Лист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
Лист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
Frintezza, Если результат, полученный после выполнения второго макроса, Вас не устраивает, то можете опубликовать свой вариант общей таблицы. Это позволит наглядно увидеть Ваши запросы.