たびたびすいません。
よろしくお願いいたします。

タイムを読み込み　シート４に読みますと

（本元　データ）
　　　　Ｇ列
35行　　3:15.7
。
。
60行　　3:23.9

　（シート４）読み込み
　　　　Ｇ列
35行　　0.0022650462962963（セルの書式設定は、標準になってます）
。
。
60行　　0.002359954（セルの書式設定は、標準になってます）

このようになります。


　（変換した場合）
　　　　Ｇ列
35行　　3157
。
。
60行　　3239

Worksheets("Sheet4").Range("G35:G60").Select
            Selection.NumberFormatLocal = "m:ss.00"

本元データに表示されるのですが

3:15.7を

:　と　.　を削除して

.Columns("G:G").Replace ")"."", xlPart
.Columns("G:G").Replace ")":"", xlPart

3157と変換したいのですが

どのようにしたらいいのでしょうか。

過去こちらのタイムで検索したら
同じような感じを見つけまして
このコードで動かしてみましたが
エラーになりました。

Dim Rn As Long, n As Long, str As String, i As Long, myV() As Variant
    With ActiveSheet
        Rn = .Cells(Rows.Count, 7).End(xlUp).Row - 1 ’Ｇ列7列目
        ReDim myV(1 To Rn, 1 To 1)
        For i = 1 To Rn
            str = .Cells(i + 1, 7).Value
            n = WorksheetFunction.Find(".", str)
            myV(i, 1) = Left(str, n - 1) & ":" & Right(str, Len(str) - n)
        Next
        With .Cells(35, 7).Resize(Rn)
            .Value = myV
            .NumberFormatLocal = "mm:ss.00"
        End With
    End With
    Erase myV

＞n = WorksheetFunction.Find(".", str)

上のエラー箇所です。

”エラーメッセージ”
WorksheetFunction　クラスの　Find　プロパティが見つかりません。

上のコードを改良して
出来ないでしょうか。

すいませんが
ご指導お願いいたします。



この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

質問文はよく見てません。
参考まで。

テスト用のブックでお試しください。

Sub test()
 Dim c As Range
 Dim myvalue As String
  For Each c In Selection
   With c
    myvalue = Replace(Replace(c.Text, ":", ""), ".", "")
    .NumberFormatLocal = "G/標準"
    .Value = myvalue
   End With
  Next c
 
End Sub

MK さん

ご指導いただいたコードに追加して
コード起動しました。

うまく取得できました。
ご指導ありがとうございます。
助かりました。

 Worksheets("Sheet4").Range("G35:G60").Select　’追加　範囲　G35:G60
　　Selection.NumberFormatLocal = "m:ss.0"　　　’追加　タイム表示

Dim c As Range
 Dim myvalue As String
  For Each c In Selection
   With c
    myvalue = Replace(Replace(c.Text, ":", ""), ".", "")　’　:　.　削除
    .NumberFormatLocal = "G/標準"　　　　　　　　　　　　’標準にする
    .Value = myvalue
   End With
 Next c



この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他