Сравнение двух диапазонов из разных таблиц макросом без массива

Пользователь

Сообщений: 36 Регистрация: 02.07.2019

13.02.2020 09:13:45

Добрый день уважаемые.

Имеется две таблицы. Данные 1 и Данные 2.
Значения в таблицах одинаковые, но в Данные 2 некоторых не хватает.

Хочу через цикл сравнить строчки по двум условиям это по названию столбца 1 и по диапазону значений.
Далее в столбец 2 таблицы Данные 2 вывести недостающее значение из таблицы 1.

Прошу помочь решить данную ситуацию с применением макроса. В таблицу Данные 2 нужно выводить (копировать) именно ячейку а не перезаписывать всю строку значений.

Прикрепленные файлы

Сравнение 2х.xlsm (17.75 КБ)

Kuzmich

Пользователь

Сообщений: 8043 Регистрация: 21.12.2012

13.02.2020 12:38:50

Цитата
Надо сюда вывести макросом без исползования массива

При активном листе Данные 2 запустить макрос

Код

Sub Perenos()
Dim i As Long
Dim iLastRow As Long
Dim FoundRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 With Worksheets("Данные 1")
  For i = 6 To iLastRow Step 2
   FoundRow = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole).Row
    Cells(i, "B") = .Cells(FoundRow, "B")
  Next
 End With
End Sub

Это для столбца В

АналитикБУ Пользователь Сообщений: 36 Регистрация: 02.07.2019	#3 13.02.2020 15:03:26 Kuzmich, благодарю