excel中某列日期的格式如何能快速自动转换？

发布网友发布时间：2022-02-25 20:34

我来回答

共3个回答

热心网友时间：2022-02-25 22:03

选择F列，分列，分隔符：“/”，把F列分为F、G、H三列，如果原来G、H、I列中有数据，先在F列后插入三列。

在I1中输入： =TEXT(H1&"-"&F1&"-"&G1,"yyyy-mm-dd")，并选择I1，双击右下角小十字，填充公式到最后一行。

选择I列，复制。然后定位到F1，选择性粘贴：数值。

删除G、H、I列。

热心网友时间：2022-02-25 23:21

你选中那些数据,在单元格格式,数字里面选自定义,然后输入yyyy-mm-dd 就行了

热心网友时间：2022-02-26 00:56

=text(f1,"yyyy-mm-dd"),先转换成所需的日期格式，然后再复制-选择性粘贴-数值，到原来区域。其他的方法，用VBA方法，
sub test()
dim i as long,x as long
i = range("f65536").end(xlup).row
for x = 2 to i
range("f" & x).value=vba.format(range("f" & x),"yyyy-mm-dd")
next
end sub追问每次只对有日期的单元格进行转换，空白部分暂不运行，请帮手再看看有没有方法优化运行速度。

追答i本来就是最后一个非空单元格，如果在f列中间还有空的单元格，那么，按F11，进入VBE，然后插入模块，然后把如下代码复制过去，假如你那个工作表的codename(代码名称）是sheet1，则：sub test()
dim i as long,x as long
with sheet1
i = .range("f65536").end(xlup).row
for x = 2 to i
if vba.len(.range("f" & x))=0 then
range("f" & x).value=vba.format(.range("f" & x),"yyyy-mm-dd")
end if
next
end with
end sub
注：学VBA不是做学问，无需搞太复杂，用最简单的方法达到目的就好。