標題: 兩個空格分到下一列… [打印本頁]

---

作者: 自我感覺良好    時間: 2015-3-5 13:54     標題: 兩個空格分到下一列…

兩個空格分到下一列…
用資料剖析也無法完成﹗有什麼好的方法？
[attach]20374[/attach]

---

作者: 自我感覺良好    時間: 2015-3-5 22:29

沒有更好的方法﹗只能勉強的用…[attach]20377[/attach]

---

作者: GBKEE    時間: 2015-3-6 07:24

回復 2# 自我感覺良好
試試看

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

複製代碼

---

作者: 自我感覺良好    時間: 2015-3-6 09:23

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

這個才是真的是程式…
好用的
太感謝了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)