| 
    
     |  | ▼マナ さん: >▼amatsuno さん:
 >
 >>解決しました
 >
 >>Set c2 = ActiveSheet.Columns("F:F").Find(What:=MYTXT, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
 >
 >
 >この条件に意味ありますか?
 >
 >LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False
 >
 >
 >'-------
 >別法です。
 >
 >Option Explicit
 >
 >Sub test()
 >  Dim r As Range
 >
 >  Set r = Cells(1).CurrentRegion
 >
 >  r.Columns("n").Formula = "=if(TEXT(f1,""hh:mm:ss"")=""23:59:58"",""23:59:58"",e1)"
 >  r.Columns("e").Value = r.Columns("n").Value
 >  r.Columns("n").ClearContents
 >
 >End Sub
 
 
 ありがとうございます。
 この方法でも確認してみます
 
 
 |  |