マクロで分と秒だけのデター抽出を教えてください。

質問

マクロで分と秒だけのデター抽出を教えてください。

シート1のA列に5:15:30以下にランダムな時刻が入力されています。（時間と分と秒が表示になっています。）
それを分と秒だけシート2のA列に表示したいと思っています。
とりあえず、データーだけでもシート2に移せたら（転記）と思い以下の記述をしたのですが、
これでは、時刻データーも29035.0658333333となったりA列以外のデーターも
全部転記してしまいます。
誰か教えて頂けませんでしょうか？お願いします。

Sub データー抽出()
Dim LastRow As Long
Dim k As Long

LastRow = Worksheets("シート1").Range("A65536").End(xlUp).Row
For r = 2 To LastRow
Worksheets("シート2").Rows(r).Value = Worksheets("シート1").Rows(r).Value
Next r
end sub

回答No.1

imogasi · ベストアンサー

エクセルの経験が足らない。
エクセル時刻は時：分：秒で組になってます。
分：秒を見たいなら、
5:15:30から0:15:30のようなデータをつくり、書式の表示形式をm:sのように設定するか
そのままの値をB列にコピーして書式の表示形式をm:sのように設定して見た目を分秒だけにする
ことです。
ーー
エクセルでは時刻のセルのセルの値は時刻シリアル値です。ー＞初耳ならば時刻シリアル値でWEB照会のこと。
5:15:30　から　0:15:30のようなデータの作り方
セル　　　A1　5:15:30　セルの値　0.474571759259259
　　　　　B1　0:15:30 セルの値　0.01623842592593
C1 式　=A1-HOUR(A1)/24　セルの値　0.016238426
B1とC1の値は等しいー＞検算したことになる。
これをVBAでやるのは簡単だが、やる必要性は通常少ない。

お礼

imogasi様
有難うございます。