標題: [發問] 如何取代字串中的"*" [打印本頁]

---

作者: mhl9mhl9    時間: 2017-5-15 00:53     標題: 如何取代字串中的"*"

如何取代字串中的"*",如"中國*人民"取代為"中國的人民"

---

作者: GBKEE    時間: 2017-5-15 10:39

回復 1# mhl9mhl9

~*
   

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim F As Range
   
4.     Set F = Cells.Find("*~**")
   
5. 
   
6.     If Not F Is Nothing Then
   
7.         Do
   
8.             F = Replace(F, "*", "的")
   
9.             Set F = Cells.FindNext(F)
   
10.         Loop Until F Is Nothing
    
11.     End If
    
12. End Sub

複製代碼

---

作者: 准提部林    時間: 2017-5-15 10:59

[a:a].Replace "~*", "的", Lookat:=xlPart

---

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