帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

1^# 跳轉到 »

發表於 2013-2-20 16:52 | 只看該作者

儲存格內相同字串處理

請問各位大大

如附件,這是一首歌的歌詞
下面字串會在儲存格內重複出現
"I've been locked out of heaven"

我想知道
是否能將這許多相同的字串分別放到陣列內,以便做各別處理
如果可行應該如何做??

是否可將搜尋到的第二個及最後相同的字串替換為 "END",而其他字串仍為原本字串??

新增Microsoft Excel 工作表 (2).rar (4.73 KB)

請大大解惑~謝謝

TOP

loquat

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

2^#

發表於 2013-2-20 17:30 | 只看該作者

保留空格

=MID($A$1,COLUMN(A1),1)

複製代碼

不保留空格

=MID(SUBSTITUTE($A$1," ",""),COLUMN(A1),1)

複製代碼

向高手学习

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-2-20 23:38 | 只看該作者

回復 1# a703130

Sub ex()
mystr = "I've been locked out of heaven"
k = UBound(Split([C5], mystr))
MsgBox "取代第2組" & Application.WorksheetFunction.Substitute([C5], mystr, "END", 2)
MsgBox "取代第最後一組" & Application.WorksheetFunction.Substitute([C5], mystr, "END", k)
End Sub

複製代碼

學海無涯_不恥下問

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

4^#

發表於 2013-2-21 10:22 | 只看該作者

回復 3# Hsieh

謝謝大大
沒想到簡單幾行字便能解決

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

5^#

發表於 2013-2-21 21:58 | 只看該作者

回復 3# Hsieh

請問是否能用replace 方式直接替換?

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

6^# 倒序看帖

打印

字體大小: tT

發表於 2013-2-22 18:34 | 只看該作者

[發問] 儲存格內相同字串處理_取代

如下面連結

http://forum.twbts.com/thread-9000-1-1.html

我學到replace的方法

但是又遇到另一個問題
如附件

新增Microsoft Excel 工作表 (2).rar (1.76 KB)

我如果要取代字串中的Never

但我也會同時取代 Never_1 ...

不知道是否有方法只取代 Never 而不會連Never_1 等類似字串一起取代

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2013-2-22 19:11 | 只看該作者

回復 1# a703130
Never加上一個空白鍵作為搜尋目標
要取代的字串也加上空白鍵

學海無涯_不恥下問

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

8^#

發表於 2013-2-22 20:04 | 只看該作者

回復 2# Hsieh

你的意思是

單一 Never 字串都在後面加上空白辨識嗎??

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2013-2-22 22:05 | 只看該作者

回復 3# a703130

附件中的Never後面有一個空格，可以跟Never_做識別
所以只有此方法做2者區別

學海無涯_不恥下問

TOP

a703130

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

10^#

發表於 2013-2-23 11:12 | 只看該作者

回復 4# Hsieh

謝謝H大~以了解

Microsoft Excel 工作表 (2).rar (1.82 KB)
我現在遇到另一個問題
當我資料變多時,我是使用do loop 遇到"END" 停止處理
而旁邊的儲存格是我取代的關鍵字
這部份也是用do loop 遇到" " 停止處理
取代後的儲存格要存至cells(x,9) ,x 往下增加
但是最後會變成只取代1_Never_

尋找的字串    待取代的字串
Never                      Test
Never_1                apple
1_Never_                Gone

是否有辦法解決??

TOP