Sub 成员梳理()
 ajs = Sheet3.UsedRange
 ald = Sheet6.UsedRange
 abb = Sheet7.UsedRange
   
    xmmc = 0: xmlx = 0: qld = 0
    m = 0: t = 0
   
    Dim acc(500, 3) As String
    Dim ccc(500, 5) As String
   
    '以下是成员相关列拿出来
    For k = 1 To UBound(ald)
      For t = 1 To UBound(ajs)
        If InStr(ajs(t, 21), ald(k, 1)) Then
          ccc(m, 0) = ald(k, 1)
          ccc(m, 1) = ajs(t, 5)
          ccc(m, 2) = ajs(t, 3)
          ccc(m, 3) = ajs(t, 4)
          ccc(m, 4) = ajs(t, 21)
          m = m + 1
        End If
      Next
    Next
  
     For m = m To 500
     ccc(m, 0) = ""
     ccc(m, 1) = ""
     ccc(m, 2) = ""
     ccc(m, 3) = ""
     ccc(m, 4) = ""
     ccc(m, 5) = ""
     Next
     

    Sheet7.[a3].Resize(UBound(ccc), UBound(ccc, 2)) = ccc
End Sub