| ©«¤l5923 ¥DÃD13 ºëµØ1 ¿n¤À5986 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»Office 2010 ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥xÆW°ò¶© µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2022-1-23 
         
 | 
                
| ¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-30 13:24 ½s¿è 
 ¦^´_ 10# t8899
 ¸Õ¸Õ¬Ý
 ¤U¸ü§AªºÀÉ®×,·|¸ß°Ý¬O§_§ó·s°Ñ·Ó,¨S¦³§AªºDEEÀ³¥Îµ{¦¡¥i§ó·s(¦³DEE¤½¦¡ªºÀx¦s®æ³£¬O¿ù»~È)½Æ»s¥N½XPrivate Sub ±Æ§ÇÈ(Rng As Range) '±Æ°£¦³«½Æªº¼ÆÈ
    Dim e As Range
    Set D = CreateObject("SCRIPTING.DICTIONARY")
    For Each e In Rng.SpecialCells(xlCellTypeFormulas)'¯S®íÀx¦s®æ(¤½¦¡)
       If IsNumeric(e) Then D(e.Value) = ""
    Next
End Sub
½Ð«·s¤W¶ÇÀÉ®×,¦bThisWorkbook ¼Ò²Õ¥[¤W³oµ{¦¡,´N¤£·|¸ß°Ý¬O§_§ó·s°Ñ·Ó.
 ½Æ»s¥N½XPrivate Sub Workbook_Open()
    Me.UpdateLinks = xlUpdateLinksNever
End Sub
 | 
 |