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

尋找&取代

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-27 19:34 | 顯示全部帖子

尋找&取代

各位:以下我用錄制的巨集,請問如何簡單一點,謝謝.

Sub 取代()
ActiveSheet.UsedRange

Selection.Replace What:="700", Replacement:="J07", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
Selection.Replace What:="1500", Replacement:="J15", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
Selection.Replace What:="1100", Replacement:="J11", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
Selection.Replace What:="2300", Replacement:="J23", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False

End Sub