热门搜索：
您的位置： -&
软件教程分类查找
非常抱歉！2345软件大全没能为您提供完善服务，万分感谢能得到您的指点！
您的建议：
第二章 新建保存文档
第三章 撤销与恢复
第二章 输入方式
第二章 样式修饰
第三章 工作表操作
第二章 排序
第三章 查找与替换
第四章 重复项合并
第五章 数据有效性
第二章 图片
第二章 函数的使用
第二章 打印
精品软件课程
人气：395171
Word是由Microsoft公司出版的文字处理器应
人气：4057334
WPS是金山公司的中文办公软件，包含文字，
人气：1444559
Excel是office的重要组成部分。多特Excel教
人气：72671
Outlook是office套装软件的组件之一，可以
小游戏推荐
excel设置日期格式yyyy-mm-dd？excel设置数字为日期怎么做？
出处：2345软件大全
人气：1896
名称：EXCEL必备工具箱
版本：V12.90
核心提示：excel怎么将数字变日期
　　excel怎么将数字变日期　　1、打开要处理的EXCEL文件(这里小编没有合适的问题表格，做个实验表)　　2、在A1单元格输入“12334”这个五位数　　3、直接设置单元格格式，具体方法：右击单元格——设置单元格格式。　　4、选择“数字”——“日期”　　5、这时，应该能帮你解决大部分问题　　6、有的朋友问了，有时候我们需要的格式是“”(比如说国家体质监测网站数据的上传)，要求的格式比较严格，此时就需要添加代码了，小编举个例子：=TEXT(YEAR(A1)&&-&&MONTH(A1)&&-&&DAY(A1),&yyyy-MM-dd&)，A1是要改变的单元格
相关教程推荐
相关软件推荐
资源统计：无插件软件：101882个 无病毒软件：102208个 昨日已处理135个带插件、病毒的软件
本站总软件：102208个 软件总下载次数：21.801亿次
软件教程文章：105743篇 总浏览次数：3.478亿次(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
教你Excel打开文档数字变日期的解决方法
今天上班就又尴尬了，该死的Excel文档。我昨天下班保存的时候文件不是这样的吗？&
今天打开EXCEL之后，怎么所有数字变成日期了？&
你是否也遇到过如此抓狂的事？仅把此视频分享给奋斗在数据的海洋中的兄弟姐妹们，以期能帮大家减少折磨。
解决方法：选择日期区域，Ctrl+1调出自定义单元格格式对话框，在自定义格式看到[$-F800]、[$-F400]类型格式的代码，删除这部分代码，保存后日期格式全部恢复成数字格式。整个工作簿中的数字全部恢复正常。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------
猜你感兴趣周热销排行
用户评论（0）
在此可输入您对该资料的评论~
添加成功至
资料评价：在excel表中如何将日期格式改为文本格式 三路知识网
在excel表中如何将日期格式改为文本格式
来源：网络收集 & 发布时间： &
例如：将日期格式改为文本格式的
涵数我必须自己输入是吗，有没有过程截图看一下啊，谢谢……
你粘贴就好了啊，下面的公式
=TEXT(A2,"yyyy-mm-dd")
粘贴到你需要的空白格子处，A2替换成你需要转换的那个格子就可以直接用啊
　　①启动Excel表格，输入相关数据，然后在单元格D2输入公式： =TEXT(C2,"日")　　②按下回车得到结果，将纯粹的数字格式改为了文本加数字的格式。关于公式的意思，稍后为大家解释。　　③光标移动到单元格右下角，出现+号，双击，就能自动填充完数据。这样整张表格都被转换了。　　公式意义　　text(数值，单元格格式)：将数值转为按指定数字格式表示的文本。　　将C2单元格的数字设置为XXXX年XX月XX日这种格式。
本文地址：https://www.slzays.com/9293.html
所有问题分类新手小白求问，怎么英文日期文本转成数字格式【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：166,811贴子：
新手小白求问，怎么英文日期文本转成数字格式收藏
如图，将左侧的英文日期换成右面的数据格式，英文日期替换成YYYY-MM-DD格式，THROUGH替换成&,OR替换成/
THROUGH 05MAY 17 OR 17JUL 17 THROUGH
13AUG 17 OR 30SEP 17 THROUGH 09OCT
17 OR 22DEC 17 THROUGH
14FEB 18 OR 19FEB 18 THROUGH 01MAR
18 01JUL 17 THROUGH 16JUL 17 OR 14AUG 17 THROUGH
31AUG 17 OR 01DEC 17 THROUGH 21DEC
17 01JAN 17 THROUGH 08JAN 17 OR 23JAN 17 THROUGH
26JAN 17 OR 29JAN 17 THROUGH
30JAN 17 OR 08FEB 17
THROUGH 29SEP 17 OR 03OCT 17
THROUGH 04OCT 17 OR
12OCT 17 THROUGH 31DEC 17
二楼是上面英文为需要转换的原文
用下面的公式将THROUGH，OR以及空格替换为逗号=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A4,&THROUGH&,&,&),&OR&,&,&),& &,)然后根据逗号分列
万能的vba可以实现。公式不太好做吧
=TEXTJOIN(MID(REPT(&&/&,10),ROW($1:$20),1),,TEXT(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A2,&THROUGH&,REPT(& &,99)),&OR&,REPT(& &,99)),ROW($1:$20)*99-98,99)),&e-m-d&))数组公式，输入公式后，ctrl+shift+enter三键一起按。三键一起按，确认公式。
Function rq(s)Set zd = CreateObject(&scripting.dictionary&)zd.Add &JAN&, 1zd.Add &FEB&, 2zd.Add &MAR&, 3zd.Add &APR&, 4zd.Add &MAY&, 5zd.Add &JUN&, 6zd.Add &JUL&, 7zd.Add &AUG&, 8zd.Add &SEP&, 9zd.Add &OCT&, 10zd.Add &NOV&, 11zd.Add &DEC&, 12s1 = &&s2 = &&s3 = &&For i = 1 To Len(s)
If Not (Asc(Mid(s, i, 1)) &= 48 And Asc(Mid(s, i, 1)) &= 57) Then
s1 = s1 & Mid(s, i, 1)Next iFor j = i To Len(s)
If (Asc(Mid(s, j, 1)) &= 48 And Asc(Mid(s, j, 1)) &= 57) Then
s2 = s2 & Mid(s, j, 1)Next jFor i = j To Len(s)
s3 = s3 & Mid(s, i, 1)Next iyf = zd(Trim(s2))nf = Val(s3)dd = Val(s1)rq = DateSerial(2000 + nf, yf, dd)End FunctionFunction zwrq(s)sarr = Split(s, &THROUGH&)zwrq = Format(rq(sarr(0)), &yyyy-mm-dd&)For i = 1 To UBound(sarr)
If InStr(sarr(i), &OR&) = 0 Then
zwrq = zwrq & &&& & Format(rq(sarr(i)), &yyyy-mm-dd&)
zwrq = zwrq & &&&
ssarr = Split(sarr(i), &OR&)
zwrq = zwrq & Format(rq(Trim(ssarr(0))), &yyyy-mm-dd&) & &/& & Format(rq(Trim(ssarr(1))), &yyyy-nn-dd&)
End IfNext iEnd Function
这是自定义函数运行的结果
Option Explicit　Sub test()　Dim month, mark, t, tt, s, arr, i, j, k　month = Split(&JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 01 02 03 04 05 06 07 08 09 10 11 12&)　mark = Split(&THROUGH OR&)　arr = Range(&a2:a& & [a65536].End(xlUp).Row)　For i = 1 To UBound(arr, 1)　　t = Split(arr(i, 1), mark(0))　　For j = 0 To UBound(t)　　　If InStr(t(j), mark(1)) & 0 Then　　　　tt = Split(t(j), mark(1))　　　　For k = 0 To UBound(tt)　　　　　s = s & IIf(k = 0, &&&, &/&) & chgdatefmt(month, tt(k))　　　　Next　　　Else　　　　s = s & IIf(j = 0, vbNullString, &&&) & chgdatefmt(month, t(j))　　　End If　　Next　　arr(i, 1) = s: s = vbNullString　Next　[b:b].ClearContents　[b2].Resize(UBound(arr, 1), 1) = arrEnd Sub　Function chgdatefmt(month, t)　Dim s, i　t = Trim(t)　For i = 0 To UBound(month)　　If Mid(t, 3, 3) = month(i) Then Exit For　Next　s = IIf(i & UBound(month) + 1, month(i + 12), &error&)　chgdatefmt = &20& & Right(t, 2) & &-& & s & &-& & Left(t, 2)End Function
登录百度帐号