標題: [發問] 替換儲存格內 特定字串 [打印本頁]

---

作者: pinklee    時間: 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
請教各位 用什方法可以一次改寫五個區
感激不盡

---

作者: oobird    時間: 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

---

作者: pinklee    時間: 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

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

---

作者: oobird    時間: 2011-9-21 21:13

Cells.Replace Mid(a, i, 3), Mid(b, i, 1)
直接
Cells.Replace Mid(a, i, 3), ""
這樣不好嗎？

---

作者: GBKEE    時間: 2011-9-21 21:22

需註明:    儲存格的內容不需完全相同    ->不易出錯
Cells.Replace Mid(a, i, 3), "", xlPart

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)