返回列表 上一主題 發帖

[發問] 取代問題請教(公式內容不取代)

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
5#
發表於 2015-1-29 09:37 | 只看該作者
DEAR  准提部林
   小弟測試OK 完全符合需求  感謝您  THANKS*10000

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

TOP

准提部林

帖子
2831 
主題
10 
精華
0 
積分
2887 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-8 
4#
發表於 2015-1-28 21:00 | 只看該作者
編輯>到>特殊>常數>確定, 選取[非公式]格, 再執行取代!
Cells.SpecialCells(xlCellTypeConstants, 23).Replace "FC-XGA", "ABFS", Lookat:=xlPart

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2015-1-26 08:11 | 只看該作者
DEAR fantersy SIR
感謝您之回覆
小弟是需要將原EXCEL內之文字 "FC-XGA" 全自動 轉換為 "ABFS"
使用原有功能鍵 "編籍"-"取代"-"全部替換"可達成此功能
但會將公式內之  "FC-XGA" 也自動 轉換為 "ABFS"
需求是公式不轉換.只轉換文字.
羅

TOP

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
2#
發表於 2015-1-25 14:15 | 只看該作者
回復 1# rouber590324


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

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題