Создание проверки на совпадение 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д