19/03/07 10:57:17.39 QGzmAmpt0.net
コピーした後NumberFormatで整えればええんちゃうん？
Dim buf() As Variant
buf = Range("A1:A3").Value
Range("B1:B3").Formula = buf
Range("b1").NumberFormat = "yyyy/m/d"
Range("b2").NumberFormat = "h:mm"
Range("b3").NumberFormat = "[$\-ja-JP]#,##0;-[$\-ja-JP]#,##0"
データが多すぎて無理？