¨â­ÓªÅ®æ¤À¨ì¤U¤@¦C¡K

¦Û§Ú·Pı¨}¦n

¨â­ÓªÅ®æ¤À¨ì¤U¤@¦C¡K
¥Î¸ê®Æ­åªR¤]µLªk§¹¦¨¡T¦³¤°»ò¦nªº¤èªk¡H
°ÝÃD.rar (7.3 KB)

¤U¸ü¦¸¼Æ: 7

2015-3-5 13:52

¦Û§Ú·Pı¨}¦n

¨S¦³§ó¦nªº¤èªk¡T¥u¯à«j±jªº¥Î¡K «j±jÁÙ¯à¥Î.rar (14 KB)

¤U¸ü¦¸¼Æ: 7

2015-3-5 22:29

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

¦Û§Ú·Pı¨}¦n

Dim E As Variant, I As Integer
    I = 10
    For Each E In Split([A1], Space(2))
        If E <> "" Then
            Cells(I, "A") = E
            I = I + 1
        End If
    Next
End Sub

³o­Ó¤~¬O¯uªº¬Oµ{¦¡¡K
¦n¥Îªº
¤Ó·PÁ¤F