每月月底要和人事要離職人員名單，並賬號列表裡刪除已經離職人員的賬號，如下程式碼通過將賬號列表與人事發來的離職清單進行對比，高亮找出離職人員的賬號，並進行刪除。

Sub DeleteMain()
    Dim filenameobj As String
    Dim wb As Workbook
   
   
    
    On Error Resume Next
    Autoscreenupdating = False
    ShowWindowInTaskbar = False
    filenameobj = Application.GetOpenFilename("
 
Excel Îļþ (*.xls),*.xls")
    MsgBox filenameobj
    Set wb = GetObject(filenameobj)
    rw = wb.Sheets("Nov.").Range("a65536").End(xlUp).Row
    'rw1 = ThisWorkbook.Sheets("MES1").Range("a65536").End(xlUp).Row
    'MsgBox rw, wr1
    For i = 2 To rw

        jieguo = wb.Sheets("Nov.").Range("b" & i).Value
        
 
Set c = ThisWorkbook.Sheets("MES1").Range("a:a").Find(jieguo)
        rn = c.Address
        Range(rn).Interior.ColorIndex = xlNone
        Range(rn).Interior.ColorIndex = 3
        
    Next
    
End Sub


Sub delRec()
    rw1 = ThisWorkbook.Sheets("MES1").Range("a65536").End(xlUp).Row
    For i = 2
 
 To rw1
        If ThisWorkbook.Sheets("MES1").Range("A" & i).Interior.ColorIndex = 3 Then: ThisWorkbook.Sheets("MES1").Range("A" & i).EntireRow.Delete: End
    Next
End Sub