Sub RemoveDuplicatesAndEmptyRows()

   Dim ws As Worksheet

   Dim lastRow As Long

   Dim i As Long

   Dim dict As Object

   Dim key As String

   ' Установите лист, с которым будете работать

   Set ws = ThisWorkbook.Sheets("Sheet1") ' Замените "Sheet1" на имя вашего листа

   ' Создайте объект Dictionary для хранения уникальных значений

   Set dict = CreateObject("Scripting.Dictionary")

   ' Найдите последнюю строку в столбце R

   lastRow = ws.Cells(ws.Rows.Count, "R").End(xlUp).Row

  ' Пройдитесь по строкам с конца в начало

   For i = lastRow To 2 Step -1

       ' Создайте ключ из значений в столбцах R и T

       key = ws.Cells(i, "R").Value & "|" & ws.Cells(i, "T").Value

       ' Проверьте, есть ли уже такой ключ в словаре

       If dict.exists(key) Then

           ' Если ключ уже существует, удалите строку, если столбец U пуст

           If IsEmpty(ws.Cells(i, "U").Value) Then

               ws.Rows(i).Delete

           End If

       Else

           ' Если ключа нет, добавьте его в словарь

           dict.Add key, True

       End If

   Next i

   ' Очистите объект Dictionary

   Set dict = Nothing

End Sub

Добрый день. Давно нахожусь на форуме и ребята очень выручают. Я живу в небольшом городе, работаю в компании где работа только в Outlook.
Процесс работы очень муторный и нужна оптимизация. Должность у меня не высокая, поэтому в средствах ограничен. Если данная помощь будет стоить очень дорого, то напишите сразу - может не потяну...Буду очень признателен, если хотя бы напишите реально ли сделать данный процесс.

Описание: есть уже один макрос, который нужно подправить. Но основная задача следующая:
1) Письма от главного отдела приходят на один ящик, а потом распределяются коллегой на другой. Иногда это новые письма, но чаще, это вчерашние и давние письма, где я уже участвовал в переписке и моя фамилия там есть. Задача - Можно ли отмечать определенным цветом автоматически письма, в которых есть моя фамилия, которые пересылает коллега с первого ящика на второй? Чтобы на втором ящике они отмечались сразу допустим зеленым.
2) Почти в каждом письме (90%) и теме письма есть определённый номер семизначный. Задача - возможно ли автоматически отмечать на втором ящике два или несколько таких письма? Чтобы было видно, что на этом ящике есть три одинаковых письма с одинаковым семизначным номером. Поскольку бывает, что с первого ящика присылают одно такое письмо, а через 20 минут второе, но с другой задачей.
3) Письмо с первого ящика пересылает сотрудник Петров. Когда я открываю письмо, то мне нужно стирать его подпись и ставить свою, чтобы напрямую ответить тому, кто переслал письмо на первый ящик к Петрову. И в адресаты копировать вручную того человека или несколько, если поставлены в копию. Задача - можно ли это автоматизировать?
4) Самое на мой взгляд не решаемое: Нужно, чтобы после ответа со второго ящика, письмо, которое было передано отметилось цветом (на первом ящике), обозначающим то, что я ответил на него. Когда сотрудник Петров будет делать сверку, то он поймет, что я уже отвечал на него.

5) Нужно чтобы при открытии письма оно помечалось галочкой автоматически.