關於用VBA實現查詢後一一列舉功能

darwenli

附件數據源是化學測試報告的測試日期及編號的記錄,現在已有程序能統計距測試報告失效還剩一個月,2個月,3個月,半年及一年的總份數.
附件是別人分別函數和VBA達到的第一個要求,現在還有第二個要求,需實現如下功能:
比如說:距化學測試報告還剩一個月的有7份,其中RoHS3份,3P1份,8P2份,PAHS1份,PHOS1份,那麼需列出這幾種化學物質所屬的供應商是哪些?需一一列出.同樣的,距測試報告還剩二個月等都要能實現將測試報告所屬的供應商列舉出來.
我嘗試過用函數,但是要轉好幾個彎,因為比如說RoHS有3份,但其中2份都是同一家供應商,那麼還要用函數剔除一家.這樣一來,整個表速度很特別慢,請問哪位高手,能否用VBA達到我要的那種效果更好?
小弟在此拜謝了!!

zhoucoco

xiexie