Создание проверки на совпадение 2 столбцов разных таблиц (непростая) - VBA

Узнай цену своей работы

Формулировка задачи:

Подскажите, пожалуйста!

Есть в файле эксель три листа, на 1 листе производится итог на 2 и 3 листе находятся исходные таблицы с тремя столбцами надо сопоставить на листе 2 столбец B и на листе 3 столбец C, при несовпадении значения в этих двух столбцах должна ячейка не совпавшая со значениями столбца др. таблицы окрасится в красный цвет, затем не совпавшие названия должны перенестись на 1 лист в соответствующий столбец показывающий не совпавшие названия и на каком листе, а также должны свестись в общий столбец и с информацией по данной ячейки, т.е. перенестись информация с соседних двух столбцов не совпавшей ячейке
не совпавшие с листа 2 не совпавшие с листа 3 общий список не совпавших с 1 и 2 листа предложение сумма
         
         

Решение задачи: «Создание проверки на совпадение 2 столбцов разных таблиц (непростая)»

textual
Листинг программы
Next j
Next i
 
m = 5
For i = 2 To Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row
If Sheets(2).Cells(i, 2).Interior.Color = 255 Then
Sheets(1).Cells(m, 1).Value = Sheets(2).Cells(i, 2).Value
For j = 2 To 4
Sheets(1).Cells(m, j + 1).Value = Sheets(2).Cells(i, j).Value
Next j
m = m + 1
k = m
End If
Next i
 
m = 5
For i = 2 To Sheets(3).Cells(Rows.Count, 3).End(xlUp).Row
If Sheets(3).Cells(i, 3).Interior.Color = 255 Then
Sheets(1).Cells(m, 2).Value = Sheets(3).Cells(i, 3).Value
m = m + 1
For j = 3 To 5
Sheets(1).Cells(k, j).Value = Sheets(3).Cells(i, j).Value
Next j
k = k + 1
End If
Next i

Оцени полезность:

15   голосов , оценка 3.867 из 5
Похожие ответы