在Excel度分秒坐标转成十进制度

设Excel中A1单元格的坐标格式为度分秒，
要将度分秒格式转化成十进制度，
在B1中输入

=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