返回列表 上一主題 發帖

兩個空格分到下一列…

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-5 13:54 | 顯示全部帖子

兩個空格分到下一列…

兩個空格分到下一列…
用資料剖析也無法完成﹗有什麼好的方法？
問題.rar (7.3 KB)
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
2#
發表於 2015-3-5 22:29 | 顯示全部帖子
沒有更好的方法﹗只能勉強的用… 勉強還能用.rar (14 KB)
1

評分人數

50 字節以內
不支持自定義 Discuz! 代碼

TOP

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
3#
發表於 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

這個才是真的是程式…
好用的
太感謝了
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題