¦U¦ì:¥H¤U§Ú¥Î¿ý¨îªº¥¨¶°,½Ð°Ý¦p¦ó²³æ¤@ÂI,ÁÂÁÂ.
Sub ¨ú¥N()
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 |