返回列表下一主題上一主題發帖

[分享] 儲存格範圍查出的字串置換為其他字串

thjh159

中學生 Rank: 2

帖子: 29
主題: 28
精華: 0
積分: 57
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: tw
註冊時間: 2014-10-26
最後登錄: 2014-12-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-8 14:16 | 只看該作者

[分享] 儲存格範圍查出的字串置換為其他字串

儲存格範圍查出的字串置換為其他字串

Sub 執行置換()
Range("B2:B8").Replace What:="2003", Replacement:="2007"
Range("B2:B8").Replace What:=".NET", Replacement:="2005"
End Sub

Sub 置換格式()
Application.FindFormat.Interior.Color = RGB(127, 255, 127)
Application.ReplaceFormat.Interior.Color = RGB(255, 255, 127)
ActiveSheet.UsedRange.Replace What:="", Replacement:="", _
SearchFormat:=True, ReplaceFormat:=True
End Sub