EXCEL提取部分字母文本并转换成数字日期格式

Question

提取一段文本中部分字母并转换成XX-XX-XX日期格式
转换后：A对应1，B-2，C-3，D-4，E-5，F-6，G-7，H-8，I-9，J-0
例如：AFABBH115BUSH665只提取前六位并生成16-12-28（日期格式）
感谢指点！

Answer 1

用公式的话，就很长了。用VBA好一点。

不如我就给你条公式吧：

=TEXT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(LEFT(A1,6),"A",1),"B",2),"C",3),"D",4),"E",5),"F",6),"G",7),"H",8),"I",9),"J",0),"00-00-00")

----------------------------------------------------

一条公式得出月和天，看上图，这样公式会长点。

C1公式：

=DATEDIF(B1,TODAY(),"M")&"个月"&TODAY()-DATE(YEAR(20&B1),MONTH(20&B1)+DATEDIF(B1,TODAY(),"M"),DAY(20&B1))&"天"

看上面两个图，用两个单元格分别得出月数和天数，公式会短点：

C1公式：

=DATEDIF(B1,TODAY(),"M")

D1公式：

=TODAY()-DATE(YEAR(20&B1),MONTH(20&B1)+C1,DAY(20&B1))

追问

谢谢！
变成日期后怎样算出到今天的时间呢？
比如16-12-28到今天是26个月10天，这个如何表示出呢

追答

答案已更新。

追问

C3公式用不了哦 麻烦您看一眼呐 谢谢您

追答

上面手误写错了，C3公式应该是C1公式。D2公式应该是D1公式，我把上面改过来了

追问

复制了下 计算错误哦

追答

戮我的头xiang图片瞅一下

追问

天数那部分计算错误哦

追答

戮我的头xiang图片看看，+

追问

追答

我叫你戮我的头xiang看看

Answer 2

C1=MID($B$1,ROW(A1),1)

D1=IF(C1="A",1,MATCH(C1&"*",A:A,))

下拉公式

E1=D1&D2&"-"&D3&D4&"-"&D5&D6

为结果

这个用的对照表，A列事先输入数据

B1输入数据

追问

谢谢！
变成日期后怎样算出到今天的时间呢？
比如16-12-28到今天是26个月10天，这个如何表示出呢？

Answer 3

VBA?还是公式？？
=MOD((CODE(ASC(LEFT(A1,1)))-64),10)&MOD((CODE(ASC(MID(A1,2,1)))-64),10)&"-"&MOD((CODE(ASC(MID(A1,3,1)))-64),10)&MOD((CODE(ASC(MID(A1,4,1)))-64),10)&"-"&MOD((CODE(ASC(MID(A1,5,1)))-64),10)&MOD((CODE(ASC(MID(A1,6,1)))-64),10)
以上，需保证字母是大写。追问

表格里的公式