麻辣家族討論版版 » Excel程式區 » 請問分割字串..

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

請問分割字串..

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-9-8 08:55 | 只看該作者

請問分割字串..

請問分割字串..要如何遇到逗號就分割字串呢?

每次的字串都是隨機的,例如："TV,早餐,dinner,1235Apple"

分割為："TV"、"早餐"、"dinner"、"12345Apple"

諸如此類..

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2831
主題: 10
精華: 0
積分: 2887
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-5

2^#

發表於 2015-9-8 10:19 | 只看該作者

本帖最後由准提部林於 2015-9-8 10:24 編輯

A1文字：TV,早餐,dinner,1235Apple
Sub TEST()
TT = Split([A1], ",")
[B1].Resize(, UBound(TT) + 1) = TT
End Sub

或：
TT = Split([A1] & ",", ",")　'文字串多加一個逗號，可略過A1空白時的錯誤（不然就要以if去排除）
[B1].Resize(, UBound(TT)) = TT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

3^#

發表於 2015-9-8 11:14 | 只看該作者

我來試試!! 很感謝大大的回覆

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

4^#

發表於 2016-11-8 16:19 | 只看該作者

回復 2# 准提部林

使用您附上的程式碼

Sub TEST()
TT = Split([A1], "/")
[A2].Resize(, UBound(TT) + 1) = TT
End Sub

複製代碼

若A1儲存格為:1111123/1111223/1111553/1111663
結果在A2呈現橫的:1111123 1111223 1111553 1111663 (再同一行)

若結果想要直的再同一欄
該怎麼修改呢?
結果想呈現
1111123
1111223
1111553
1111663

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

5^#

發表於 2016-11-8 16:43 | 只看該作者

回復 4# Changbanana
[A2].Value = Replace([A1].Value, "/", Space(9))

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

6^#

發表於 2016-11-8 17:22 | 只看該作者

回復 5# Kubi

謝謝你的熱心相助但是沒有回答到問題耶~~

測試過後變成值都在同一個儲存格中

結果是需要再同一欄也就是說A2:A5需呈現
1111123
1111223
1111553
1111663

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2016-11-8 17:32 | 只看該作者

回復 4# Changbanana

Sub TEST()
TT = Split([A1], "/")
[A2].Resize(UBound(TT) + 1) = Application.Transpose(TT)
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

8^#

發表於 2016-11-8 17:36 | 只看該作者

回復 7# ML089

  WOW~
  原來轉置是這樣用
  之前一直把Application.Transpose打再最前面都一直出現錯誤
  謝謝你~問題解決了

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

9^#

發表於 2016-11-9 03:20 | 只看該作者

回復 8# Changbanana

加在前面也可以

Sub TEST1()
TT = Application.Transpose(Split([A1], "/"))
[A2].Resize(UBound(TT)) = TT
End Sub

複製代碼

注意 UBound(TT) 取陣列維度大小
TT = Split([A1], "/") 是 (0 - 3) 陣列，取陣列維度大小需+1
TT = Application.Transpose(Split([A1], "/")) 是 (1 - 4, 1 - 1) 陣列，取陣列維度大小不用+1

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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