12
返回列表 上一主題 發帖

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

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
5# 跳轉到 »
發表於 2013-2-21 10:22 | 只看該作者
回復 3# Hsieh


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

TOP

Hsieh

帖子
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兔年全勤獎章
4#
發表於 2013-2-20 23:38 | 只看該作者
回復 1# a703130
  1. Sub ex()
  2. mystr = "I've been locked out of heaven"
  3. k = UBound(Split([C5], mystr))
  4. MsgBox "取代第2組" & Application.WorksheetFunction.Substitute([C5], mystr, "END", 2)
  5. MsgBox "取代第最後一組" & Application.WorksheetFunction.Substitute([C5], mystr, "END", k)
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

loquat

帖子
48 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
2010 & 2003 
閱讀權限
20 
性別
男 
來自
China 
註冊時間
2013-1-12 
最後登錄
2013-11-23 
3#
發表於 2013-2-20 17:30 | 只看該作者
保留空格
  1. =MID($A$1,COLUMN(A1),1)
複製代碼
不保留空格
  1. =MID(SUBSTITUTE($A$1," ",""),COLUMN(A1),1)
複製代碼
向高手学习

TOP

a703130

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

儲存格內相同字串處理

請問各位大大

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

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

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

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

請大大解惑~謝謝

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
12
返回列表 上一主題