Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1328|回复: 5

日期格式

[复制链接]
发表于 2019-11-15 09:40 | 显示全部楼层 |阅读模式
各位大神,从系统导的日期是文本格式,我要不怎样才能变更成日期格式,谢谢!

日期格式.zip

6.09 KB, 下载次数: 7

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-11-15 11:22 | 显示全部楼层
好了

活頁簿1.zip

8.21 KB, 下载次数: 11

回复

使用道具 举报

 楼主| 发表于 2019-11-15 11:29 | 显示全部楼层

谢谢回复,如果能找不用公式处理,那更完美!
回复

使用道具 举报

发表于 2019-11-15 11:31 | 显示全部楼层
chen418102 发表于 2019-11-15 11:29
谢谢回复,如果能找不用公式处理,那更完美!

不用公式?那VBA?
回复

使用道具 举报

 楼主| 发表于 2019-11-15 11:33 | 显示全部楼层

有些用资料剖析就能搞定,但不知这个为什么不可以,因为用公式,得插入一栏,谢谢!
回复

使用道具 举报

发表于 2019-11-15 12:45 | 显示全部楼层
本帖最后由 yongge9999 于 2019-11-15 13:35 编辑

Sub test()
Dim brr()
Dim str() As String
x = Sheet1.Cells(65535, 2).End(3).Row
arr = Range(Sheet1.Cells(2, 2), Sheet1.Cells(x, 2))
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
    str = Split(arr(i, 1), "/")
    brr(i, 1) = Format(Left(str(2), 4) & str(1) & str(0), "000年00月00日")
Next
Sheet1.[C2].Resize(UBound(brr, 1), 1).NumberFormatLocal = "yyyy/m/d;@"
Sheet1.[C2].Resize(UBound(brr, 1), 1) = brr
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:40 , Processed in 0.517316 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表