Поиск значений совпадающих ячеек нескольких столбцов и отправка почты о найденной информации

Question

У меня есть файл Excel с другими столбцами, как показано ниже (имя, роль, адрес электронной почты).Я хочу найти роли (из столбца «Роль»), которые повторяются более одного раза, и отобразить соответствующие значения (из столбца «Имя»).Наконец, необходимо отправить письмо с информацией о роли на соответствующие почтовые идентификаторы (указанные в столбце «Электронная почта»).Нужен VBScript подход на том же.

Name     Role    Email
Ram(z123)MC_PLM_Team Architect (TA), MC_PLM_Software Developer Sh.ram@abc.com
Shm(Z003)MC_PLM_Chief Product Owner (CPO)       Gh.sham@xyz.com
Arn(z789)MC_SW Developer/Designer ES/HMI/NET       Kh.arun@wxy.com
Ach(z234)MC_PLM_Team Architect (TA), MC_PLM_Software Developer   Ch.Achal@klm.com

Answer 1

Спасибо за ваш вклад.Да, я потратил некоторое время, чтобы быстро понять VB Internals.Написал скрипт, который отвечает моему требованию.Это моя первая версия скрипта, которая будет улучшена в дальнейшем.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    intRows = Application.ActiveSheet.UsedRange.Rows.Count
    intCols = Application.ActiveSheet.UsedRange.Columns.Count

    For i = 12 To intRows
     resName = Application.ActiveSheet.Cells(i, 3).Value
     primRole = Application.ActiveSheet.Cells(i, 31).Value
     emailID = Application.ActiveSheet.Cells(i, 49).Value

     If resName <> "" Then
        MsgBox resName & vbNewLine & primRole & vbNewLine & emailID
     End If

    Next

    Set outApp = CreateObject("Outlook.Application")
    Set outMail = outApp.CreateItem(0)

    strBody = "Dear XYZ" & vbNewLine & "email from outlook" & vbNewLine & "Best Regards," & vbNewLine & "XYZ"
'   
    outMail.To = "sh.ram@abc.com"
    outMail.CC = ""
    outMail.BCC = ""
    outMail.Subject = "Subject Test VBA"
    outMail.Body = strBody
    outMail.Send

    Set outMail = Nothing
    Set outApp = Nothing


End Sub