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) Нужно чтобы при открытии письма оно помечалось галочкой автоматически.

Public Sub saveAtt (itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment 'переменная для работы с вложениями
Dim saveFolder As String 'переменная для пути к папке сохранения
Dim sDateMail as string 'переманная для даты письма
'сохраняем в правильном формате время создания сообщения
sDateMail = Format(itm.CreationTime, "hh-mm-ss_dd.mm.yyyy")

'задаем путь к папке сохранения
saveFolder = "C:\Users\Igor Solobay\Desktop\"
'перебираем все вложения в письме
For each objAtt in itm.Attachments
'сохраняем вложение в папку под именем: дата письма + название файла вложения
objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName
'очищаем переменную с вложением
Set objAtt = Nothing
Next objAtt

End Sub

Этот код в момент срабатывания на каком то сообщении будет перебирать все его вложения и сохранять их в указанную папку (строка saveFolder) с именем, которое будет состоять из даты и времени создания письма и названия вложения. После вставки кода нажмите Ctrl+S (или иконку дискеты в левом верхнем углу).