清除指定範圍紅色數字問題

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2016-7-3 10:46 | 顯示全部帖子

回復 3# msmplay

Sub Ex()
Application.FindFormat.Font.colorIndex = 3
Range("A20:K100").Replace What:="*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
End Sub

複製代碼

以後要更改範圍
就更改RANGE( ) 裡面的部分就可以了

PKKO

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。