返回列表 上一主題 發帖

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

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
請教各位 用什方法可以一次改寫五個區
感激不盡
收藏 分享

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
2#
發表於 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

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題