標題: [發問] 取代問題請教(公式內容不取代) [打印本頁]

---

作者: rouber590324    時間: 2015-1-23 08:34     標題: 取代問題請教(公式內容不取代)

DEAR ALL大大
1如圖一為  ALL取代.
2若想"公式"內容之 FX-XGA 不取代為 ABFS
3請問如何修改.煩不吝賜教  THANKS*10000

圖一
Sub ALL取代()
    Sheet1.Select
    Range("A1").Select
    Cells.Replace What:="FC-XGA", Replacement:="ABFS", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub

---

作者: fantersy    時間: 2015-1-25 14:15

回復 1# rouber590324


   試試看SUBSTITUTE函數
SUBSTITUTE(指定儲存格,舊文字,新文字,第幾個字開始)
假設你的在A欄
B1輸入
=SUBSTITUTE(A1,"FC-XGA","ABFS")
向下拉複制

---

作者: rouber590324    時間: 2015-1-26 08:11

DEAR fantersy SIR
感謝您之回覆
小弟是需要將原EXCEL內之文字 "FC-XGA" 全自動 轉換為 "ABFS"
使用原有功能鍵 "編籍"-"取代"-"全部替換"可達成此功能
但會將公式內之  "FC-XGA" 也自動 轉換為 "ABFS"
需求是公式不轉換.只轉換文字.

---

作者: 准提部林    時間: 2015-1-28 21:00

編輯>到>特殊>常數>確定, 選取[非公式]格, 再執行取代!
Cells.SpecialCells(xlCellTypeConstants, 23).Replace "FC-XGA", "ABFS", Lookat:=xlPart

---

作者: rouber590324    時間: 2015-1-29 09:37

DEAR  准提部林
   小弟測試OK 完全符合需求  感謝您  THANKS*10000

Cells.SpecialCells(xlCellTypeConstants, 23).Replace "FC-XGA", "ABFS", Lookat:=xlPart

---

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