如何把日期转为数字？

vonjadey · 发表于 2009-5-14 21:42

DICKS--490+491+494+495.rar (15.86 KB, 下载次数: 40)

如何把附件中的ORD3E工作表中的ETD项的日期转为数字形式。
我的目的是在做数据透视表时能导出每一个MPO的最早ETD,
请高手告知，谢谢！

秋天的枫叶 · 发表于 2009-5-14 21:47

=--SUBSTITUTE(H2,"/","-")

yfan17 · 发表于 2009-5-14 21:47

日期本来就是数值型数字，不知楼主转换后想达到什么效果。

yanjie · 发表于 2009-5-14 22:01

如果你的日期是文本格式可以用DATEVALUE 函数转换。

little-key · 发表于 2009-5-14 22:02

=--H2就行，这个就是数值格式，只是展示上是一个数字，如果要变成是日期格式，再设置单元格格式即可

daley · 发表于 2009-5-14 22:23

公式:
=--TEXT(H2,"yyyy-mm-dd")

代码
Private Sub CommandButton1_Click()
With Sheets("ORD3E")
Dim x As Integer
For x = 2 To .Range("H" & Rows.Count).End(xlUp).Row
If .Cells(x, 8) <> "" Then
.Cells(x, 8) = Format(.Cells(x, 8), "yyyy-mm-dd")
End If
Next
End With
End Sub

mxqchina · 发表于 2009-5-14 22:35

直接数据----〉分列

vonjadey · 发表于 2009-5-14 22:40

=--h2
谢谢各位高手！！

livewire · 发表于 2009-5-14 23:45

MXQCHINA版主提供的方法数据分列试一试，这个方法初学者必须先学会。

ning84 · 发表于 2022-12-22 07:13

CELL函数如何分辨日期和数字-百度经验 https://jingyan.baidu.com/article/b907e627b2fcba07e7891c99.html

首先打开测试CELL函数的数据表，如下图所示。

CELL函数如何分辨日期和数字
我们在函数测试框中输入函数=IF(CELL("format",C5)="D1","日期","非日期")，如下图所示

CELL函数如何分辨日期和数字

点击回车，将所有单元格都引用函数，就可以看到最终的测试结果了，如下图所示。

=CELL("format",E5)
结果D是r日期型，G为数字型

		自动登录	找回密码
密码			免费注册

[求助] 如何把日期转为数字？

回复 8楼 vonjadey 的帖子