日付と時刻を一緒のセルにするには？

質問

いつもお世話になっております。
いろいろと試したのですが解決しなかった為、お力をお借りしたく、よろしくお願いいたします。

日付と時間が別々の列に入っている表があります。
１列で日付の後ろに時間を表示した形にまとめたいと思っておりますが、思い通りの状態になりません。
表は下記のように表示されています。
Ｒ列　　　　Ｓ列　　　　　　Ｔ列　　　　Ｕ列　　　　　Ｖ列
開始日　　開始時刻　　終了日　　終了時刻　　作業時間
5/1　　　　　0:00　　　　　5/1　　　　　2:00　　　　　　60

書式設定はＲ・Ｔ列は日付、Ｓ・Ｕ列はユーザー定義の「h:mm」、Ｖ列は標準です。
動きとしては
(1)Ｒ列とＳ列のデータを統合し、右のような形で表示したい。（yyyy/mm/dd hh:mm:ss）
(2)Ｔ列とＵ列も(1)と同じ形にする。
(3)Ｓ列とＵ列を削除する。
(4)Ｖ列を右のような形で表示形式を変更する。（000-01-00-000）
　　　　　　　　　　　　　　　　　　　　　　　　↑６０分だと１時間と表示

一先ず(1)を、以前文字列で動いた例をもとに組みなおしてみたのですが、うまくいきませんでした。

Sub test()
d = Range("r65536").End(xlUp).Row
Application.DisplayAlerts = False
For i = 2 To d
s = Cells(i, "R") & Cells(i, "S")
Cells(i, "R") = s
Next i
Application.DisplayAlerts = True
Columns("S").Delete shift:=xlToLeft

End Sub
結果としては、

Ｒ列の表示が「2009/05/010」となり、Ｓ列にいた開始時刻は削除しているので、Ｔ列にあった終了日がＳ列になっています。
日付と時刻を一緒にするのは無理があるのでしょうか…
以上、よろしくお願いいたします。

環境はWindowsXP　Excel2003です。

回答No.1

fujillin · ベストアンサー

1）日付、時刻ともエクセル内の値はシリアル値になっているので、
　加算でよい。
　&は文字列連結なので、万一、「5/10:00」みたいになると5/10と誤解
　されかねない。
2）現状のR列の表示書式は日付を示すものになっているでしょうから、
　その書式を（yyyy/mm/dd hh:mm:ss）に変えてあげる必要がある。

…で、こんな感じ。
Cells(i, "R") = Cells(i, "R") + Cells(i, "S")
Cells(i, "R").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"

お礼

ご回答ありがとうございます。
無事動きました。おかげさまで次のステップへ進めました！