Question

在excel里如何将度分秒转换成小数形式

如178°38′42″转化成178.3842

Answer 1

度数转换为小数形式，数值要变化的。

我只会用笨办法

=LEFT(A1,FIND("°",A1)-1)+(MID(A1,FIND("°",A1)+1,FIND("′",A1)-FIND("°",A1)-1))/60+(MID(A1,FIND("′",A1)+1,FIND("″",A1)-FIND("′",A1)-1))/3600

追问

空白表格里面可以，但是在我编程的表格里不行。求解

追答

1,先转换等文本格式
2，公式里面的度分秒符号，是否和单元格里的一致。

Answer 2

在A1输入想要的度数，如 12.354897
任意找个格输入 =ROUNDDOWN(A1,0)&"°"&ROUNDDOWN((A1-ROUNDDOWN(A1,0))*60,0)&"′"&((A1-ROUNDDOWN(A1,0))*60-ROUNDDOWN((A1-ROUNDDOWN(A1,0))*60,0))*60&"〃"
算出来就是 12°21′17.6291999999977〃

原数据在A1，在B1输入公式：
=LEFT(A1,FIND(".",A1)-1)&"°"&MID(A1,FIND(".",A1)+1,2)&"′"&MID(A1,FIND(".",A1)+3,4)/10^(LEN(MID(A1,FIND(".",A1)+3,4))-2)&"″"
将公式向下拉填充就可以了。

Answer 3

在B1中输入或复制粘贴下列公式之一
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"″",),"′",),"°",".")
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"°","."),"″",),"′",)
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"°","."),"′",),"″",)
下拉填充

追问

空白表格里面可以，但是在我编程的表格里不行。求解

追答

是的，你再提问，要求在VBA中如何写程序将度分秒转换成小数形式

Answer 4

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"″",),"′",),"°",".")

追问

空白表格里面可以，但是在我编程的表格里不行。求解

追答

可以参考下面的语句：
[B1]=REPLACE(REPLACE(REPLACE([A1],"″","")"′",""),"°",".")

追问

表格发给你帮忙解决一下？球球1541823738
谢谢