麻辣家族討論版版 » Excel程式區 » 字串分割與換行?

返回列表下一主題上一主題發帖

字串分割與換行?

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-10-13 21:07 | 顯示全部帖子

字串分割與換行?

小弟有一串字串如下：
111,222,333,444 aaa,bbb,ccc,ddd
其中444後面有一個空格，小弟想將字串分割如圖

如果直排，該怎麼寫
橫排，又該怎麼寫呢

謝謝

樓主熱帖

收藏

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2010-10-13 21:38 | 顯示全部帖子

小弟會寫直排了，不過寫得不好，大家幫我看看

Sub 字串處理()
Dim aa As String
aa = Sheets(1).Cells(1, 1)
bb = Split(aa, " ")
i = 1
For Each cc In bb
Sheets(1).Cells(i, 2) = cc
dd = Split(cc, ",")
j = 1
For Each ee In dd
Sheets(1).Cells(j, i + 2) = ee
j = j + 1
Next
i = i + 1
Next
End Sub

複製代碼

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

3^#

發表於 2010-10-13 22:47 | 顯示全部帖子

感謝兩位版主幫忙，小弟應該會用了，謝謝

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

返回列表下一主題上一主題