自己改一改資料放那吧 Sub test() Set d = CreateObject("Scripting.Dictionary"...
1.輸入 Sheet1 資料2.執行 MainLoop3.結果在 Sheet2,Sheet3,Sheet4 三張工作表 Type Student Seq...
試試看吧!https://c-t.work/s/e10b0cf1e92b4f 應該可以滿足你的需求 註解有點難表達 Option Explicit Sub m...