GBKEE

¦^´_ 3# paddyliu

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, A As Variant
   
4.     With Range("a:a")
   
5.         .SpecialCells(xlCellTypeBlanks).Delete             'ªÅ¥Õ¦C§R°£:¶°¤¤¦³¸ê®Æ½d³ò
   
6.         For Each E In .SpecialCells(xlCellTypeConstants)   '¦³¸ê®Æ½d³ò
   
7.             A = Split(E, "|")                               '¤À³Î¦r¦ê¬°°}¦C
   
8.             E.Resize(, UBound(A) + 1).Value = A
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# paddyliu

¦p¹Ï: µ{¦¡½X¥i¥Î©ó¨C±i¤u§@ªí

¤U¸ü (34.75 KB)

2013-5-6 12:38

µ{¦¡½X¦p¸m©ó ¨ä¥L¤u§@ªí¼Ò²Õ¤¤
With ActiveSheet.Range("a:a")   §@¥Î¤¤ªº¤u§@ªí