エクセルの日付から時間を削除したい

解決済

質問者：merlionXX
質問日時：2008/03/07 16:06
回答数：6件

エクセルである列に日付のデータがあります。
どういうわけか、単に2008/5/5 というデータもあれば、
2008/5/5 1:30:00　　と、時間まで入ったデータもあります。

この時間を簡単に削除する方法はありますか？

作業列に=INT(A1)として、2008/5/5 0:00:00 とし、表示形式を日付に直してからコピー＆値貼り付けすれば消えますが、もっと簡単な方法はないかと思い質問させていただきました。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

ベストアンサー優先
最新から表示
回答順に表示

No.6ベストアンサー

回答者： deus_ex_machina
回答日時：2008/03/07 20:32

現時点で【2008/5/5 1:30:00】のような表示になっているのであれば、

　１．" *"（半角スペース以降）を空白に置換
　２．表示形式を日付に

で同様の結果が得られます。Excel2000,2003で挙動確認。

最短かどうかわかりませんし、元データの表示形式に依存しますが…。

シリアル値について見た目の表示で置換が効くというのは、
個人的には少し意外(?)な挙動ですね。

以上ご参考まで。
--------------------------------------------------------
　INTを使った処理について言及しておられますし、
　　・表示だけでなく値を変更したい
　　・値と表示形式の区別については百も承知
　　・シリアル値についても先刻承知
　　・必要があればこの程度のコードはさくっと書ける
　という前提で回答しましたが、万一そうでないとしたら、
　頓珍漢な的外れ回答まことに申し訳ありません。

一応念のため。

- 1
- 件

通報する

この回答へのお礼

なんと、そんな置き換えが可能なんですか？！
驚きです。（確認済み）
目では日付+時間に見えていても中身は小数点つきシリアル値なので置き換えははなから考えていませんでした。
目からうろこです。

通報する

お礼日時：2008/03/07 23:51

No.5

回答者： KenKen_SP
回答日時：2008/03/07 18:14

こんにちは。

作業を簡単にしたいならばマクロを使うしかないのでは？
個人用マクロブックにでも登録しておくとか。

' // シリアル値から時刻部分を取り除く
Sub DropTimeValue()

　　If Not TypeOf Selection Is Range Then Exit Sub

　　Dim r As Range
　　Application.ScreenUpdating = False
　　For Each r In Selection.Cells
　　　　If VarType(r) = vbDate Then
　　　　　　r.NumberFormat = "yyyy/mm/dd"
　　　　　　r.Value = CDate(Int(r.Value))
　　　　End If
　　Next

End Sub

- 0
- 件

通報する

この回答へのお礼

KenKen_SPさま、いつもありがとうございます。
マクロのコードありがとうございました。

ただ、今回はマクロをつかわないで簡単なやり方を模索しておりました。

通報する

お礼日時：2008/03/07 23:48

No.4

回答者： imogasi
回答日時：2008/03/07 17:57

いつもこの手の質問には

（１）値をも変えてしまいたい（しまってよい）のか
（２）表示形式でそう見せれば良いのか
があいまいのままだ。
質問者が日付時刻シリアル値、日付・時刻書式の区別がはっきり判っているのかな。
（１）の値を変えるのは、関数かVBAを使わないとできない。INTもその例。関数は値を扱う（値を使って値を返すものです。
（２）書式はセル範囲に一遍に設定できるから簡単だが
yyyy/m/d （時刻部分は見えない）これぐらいご存知でしょう。
（１）との兼ね合いでどちらが正しいともいえないでしょう。