举ä¾å¦ä¸ï¼
1.å©ç¨åå ¸ï¼å°Aåä¸éå¤çå¼ï¼æ¾ç¤ºå¨Båä¸
2.Alt+F11ï¼å¨ç¸åºçå·¥ä½è¡¨çVBEä¸è¾å ¥ä»£ç ï¼æ§è¡å³å¯
代ç 详解å¦ä¸ï¼
Sub main()
Set dic = CreateObject("scripting.dictionary")'åæç»å®åå ¸
For i = 1 To 100
dic(Cells(i, "A").Value) = ""'å°Aåæ°å¼ä¾æ¬¡æ¾å°åå ¸ä¸ï¼åå ¸èªå¸¦å»éåè½ï¼éå¤çæ°å¼åªä¿çä¸ä¸ªï¼è¿éåªç¨å°äºå°ç¹çkeysï¼æ以让åå ¸çItemå¼ä¸ºç©º
Next
Range("C1").Resize(dic.Count, 1) = Application.Transpose(dic.keys)'è¿ééè¿è½¬ç½®ï¼å°åå ¸ä¸çå ¨é¨Keysä¾æ¬¡æ¾å°Cåä¸
End Sub