GBKEE

¦^´_ 2# ¦Û§Ú·Pı¨}¦n
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Variant, I As Integer
   
4.     I = 10
   
5.     For Each E In Split([A1], Space(2))
   
6.         If E <> "" Then
   
7.             Cells(I, "A") = E
   
8.             I = I + 1
   
9.         End If
   
10.     Next
    
11. End Sub

½Æ»s¥N½X