麻辣家族討論版版 » Excel程式區 » 如何將複合字串分別放入個別欄位

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

如何將複合字串分別放入個別欄位

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-3-1 23:00 | 只看該作者

如何將複合字串分別放入個別欄位

請教各位大大,
小弟遇到資料欄位是這種情況:
                                          FF/TAPE折痕 44 TB/TAPE括痕 5
以上資料是在同一欄位,如要變成
                                                         FF  TAPE折痕 44
                                          TB  TAPE括痕 5
                                       或FF TAPE折痕 44 TB TAPE括痕  5

要怎寫程式才能讓它分別獨立在欄位上(目前苦無對策不知怎構思)

樓主熱帖

收藏

DREWCHEN1

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 101
點名: 0
作業系統: windowxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 高雄縣鳳山
註冊時間: 2011-2-16
最後登錄: 2017-8-8

4^#

發表於 2011-3-2 07:44 | 只看該作者

謝謝GBKEE 大大,我知道方向該怎寫了,如果失敗在貼程式請教你

DREWCHEN1

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-3-2 07:17 | 只看該作者

回復 1# drewchen1

Sub Ex()
Dim GetText, i As Integer, E As String
GetText = Split("FF/TAPE折痕 44 TB/TAPE括痕 5 FF/TAPE折痕 144 TB/TAPE括痕 555", " ")
For i = 0 To UBound(GetText) Step 2
E = Replace(GetText(i) & " " & GetText(i + 1), "/", " ")
Cells(1, 1 + Int((i + 1) / 2)) = E
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 42
主題: 11
精華: 0
積分: 104
點名: 0
作業系統: windows
軟體版本: office007
閱讀權限: 20
性別: 男
註冊時間: 2011-1-20
最後登錄: 2015-1-21

2^#

發表於 2011-3-2 05:34 | 只看該作者

回復 1# drewchen1

可以提供欄位嗎?這樣敘述看不是很懂

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

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