返回列表 上一主題 發帖

[發問] 替換儲存格內 特定字串

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-9-20 19:49 | 只看該作者

[發問] 替換儲存格內 特定字串

本帖最後由 pinklee 於 2011-9-20 19:53 編輯

有   東,南,西,北,中, 五區  因需要 要改成A, B, C ,Ｄ,Ｅ區
以下的巨集 只可做到一區
Sub test()
Dim dd As String
dd = "東區"
Cells.Replace What:=dd, Replacement:="A區", _
LookAt:=xlPart, SearchOrder:=xlByRows
End Sub
請教各位 用什方法可以一次改寫五個區
感激不盡
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-9-21 21:22 | 只看該作者
需註明:    儲存格的內容不需完全相同    ->不易出錯
Cells.Replace Mid(a, i, 3), "", xlPart

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-9-21 21:13 | 只看該作者
Cells.Replace Mid(a, i, 3), Mid(b, i, 1)
直接
Cells.Replace Mid(a, i, 3), ""
這樣不好嗎？

TOP

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
3#
發表於 2011-9-20 21:38 | 只看該作者
本帖最後由 pinklee 於 2011-9-20 23:20 編輯

回復 2# oobird


    讚讚讚

簡潔有力 謝謝

Sub TEST()
a = "中正區信義區中山區"
b = ""
For i = 1 To 9 Step 3
Cells.Replace Mid(a, i, 3), Mid(b, i, 1)
Next
End Sub

偷師一下  改成刪除特字元 不介意吧 謝啦

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-9-20 21:23 | 只看該作者
Sub TEST()
a = "東西南北中"
b = "ABCDE"
For i = 1 To 5
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next
End Sub

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題