マクロで分と秒だけのデーターを抽出したい。

質問

マクロで分と秒だけのデーターを抽出したい。

すみません教えてください。シート1のA列に6:35:23以下、セルに同じように時間が時間:分：秒の形で表示されています。それをシート2のA列に分：秒だけを抽出していと思っています。ですがどのようにしたらよいか分かりません。教えて頂けませんでしょうか？
データーだけでも、転記出来たらと思い以下の様に記述したのですが時間が29025.093633333の表示になってしまいます。何かよい方法を教えてください。

Sub データー抽出()

　 Dim LastRow As Long
Dim k As Long

DATA_LastRow = Worksheets("シート1").Range("A65536").End(xlUp).Row

For k = 2 To LastRow

Worksheets("シート2").Rows(k).Value = Worksheets("シート1").Rows(k).Value

Next r

End Sub

追記：以前同じような、内容で質問を投稿しました。しかし、「この投稿はサポートで内容を確認中です。」になってしまいました。
もし、何か違反の投稿をしたとしたら、本当に何かの間違いか？こちらで何かミスをしてしまいました。本当に申し訳御座いません。もし、迷惑や不快感を与えた人がいましたら、本当に申し訳ございません。本当に反省しておりません。以後、投稿内容を確認してから投稿いたします。
今回の投稿も同じ様な内容なので、もし違反投稿ならすぐに削除します。

回答No.1

tom04 · ベストアンサー

こんにちは！
検証してはいませんが・・・

Worksheets("シート2").Rows(k).Value = Worksheets("シート1").Rows(k).Value

を
With Worksheets("シート2").Rows(k)
.Value = Worksheets("シート1").Rows(k).Value
.NumberFormatLocal = "m:s"
end with

にしてみてはどうでしょうか？
外していたらごめんなさいね。m(__)m

お礼

tom04様
NumberFormatLocalを調べてみます。有難うございます。

回答No.3

kagakusuki

マクロを使う必要は無いと思います。
　表示のみを変えるだけならば、Sheet2のA列のセルを選択して、セルの書式設定の表示形式で、
分類欄を「ユーザー定義」、
種類欄を「m:s」又は「mm:ss」に設定されると良いと思います。

　表示のみではなく、データ自体を

35:23

という文字列データに変換する場合には、Sheet2のA1セルに次の数式を入力した後で、Sheet2のA1セルをコピーして、Sheet2のA2以下に貼り付けると良いと思います。

=MINUTE(Sheet1!A1)&":"&SECOND(Sheet1!A1)

お礼

kagakusuki様
有難うございました。参考になりました。

回答No.2

noname#140925

セルの表示を分と秒だけにすれば済むことでは？

お礼

skyfang様
有難うございます。そのとうりです。お手数おかけしました。