返回列表 上一主題 發帖

[發問] 希望數字 1 變成 0 其他數字不變

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-1-9 21:43 | 顯示全部帖子
回復 1# jonn0510
  1. Sub Ex()
  2.   Sheets("Sheet1").[A1:A10].Replace 1, 0, xlWhole
  3. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-1-10 08:49 | 顯示全部帖子
回復 4# GBKEE

字串完全相同才取代
  儲存格範圍.Replace 欲取代字串,取代後字串, xlWhole

字串部份相同即取代
  儲存格範圍.Replace 欲取代字串,取代後字串, xlPart

當然要依實際需求來決定使用何種取代(這只有樓主才知道了)

感謝GBKEE大大

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題