Sub？demo1（）
暗淡？d？作為什麽？目標
暗淡？我？作為什麽？長的
暗淡？Rng？作為什麽？範圍
設置？Rng？=?範圍（“A1“）。當前區域
設置？d？=?CreateObject（“scripting . dictionary“）
為了什麽？我？=?2?去哪？單元格（行。數數？“C”）。結束（xlUp）。排
d（細胞（I，“C”）。值）？=?""
然後
申請。屏幕更新？=?錯誤的
為了什麽？我？=?0?去哪？d伯爵？-?1
用什麽？皇族永不言棄（Royal Never Give Up 電子競技俱樂部）
。自動篩選？3,?過濾器（按鍵，？“““）（我）
。special cells（xlCellTypeVisible）。復制
選擇？案例？過濾器（按鍵，？“““）（我）
案例？“壹個團體”
紙張（“紙張2”）。漿糊？紙張（“紙張2”）。範圍（“A1“）
案例？“第二組”
紙張（“紙張3”）。漿糊？紙張（“紙張3”）。範圍（“A1“）
案例？“三個群體”
紙張（“紙張4”）。漿糊？紙張（“紙張4”）。範圍（“A1“）
結束？挑選
結束？隨著
然後
Rng。自動篩選
申請。屏幕更新？=?真實的
結束？如果Sub直接分為三個新作業，可以使用以下代碼
Sub？演示2（）
暗淡？d？作為什麽？目標
暗淡？我？作為什麽？長的
暗淡？Rng？作為什麽？範圍？
設置？Rng？=?範圍（“A1“）。當前區域
設置？d？=?CreateObject（“scripting . dictionary“）
為了什麽？我？=?2?去哪？單元格（行。數數？“C”）。結束（xlUp）。排
d（細胞（I，“C”）。值）？=?""
然後
申請。屏幕更新？=?錯誤的
為了什麽？我？=?0?去哪？d伯爵？-?1
用什麽？皇族永不言棄（Royal Never Give Up 電子競技俱樂部）
。自動篩選？3,?過濾器（按鍵，？“““）（我）
。special cells（xlCellTypeVisible）。復制
用什麽？床單。增加
。漿糊？。範圍（“A1“）
結束？隨著
結束？隨著
然後
Rng。自動篩選
申請。屏幕更新？=?真實的
結束？潛水艇