excel怎么把度分秒转为度

在Excel中，将度分秒（DMS）转换为度（Decimal Degrees, DD），你可以使用公式、函数和格式化工具。 主要方法包括：使用公式拆分度、分、秒并转换为十进制度数、使用Excel的TEXT函数、利用自定义函数。下面详细介绍如何使用这些方法。

一、使用公式转换度分秒为度

在Excel中，可以通过公式拆分度、分、秒，然后将它们转换为十进制度数。具体步骤如下：

1.1 拆分度、分、秒

首先，将DMS格式的数据拆分成度、分、秒。例如，假设数据在A1单元格，格式为“35°20'30"”。

=LEFT(A1,FIND("°",A1)-1)
=MID(A1,FIND("°",A1)+1,FIND("'",A1)-FIND("°",A1)-1)
=RIGHT(A1,LEN(A1)-FIND("'",A1)-1)

以上公式分别提取度、分、秒。

1.2 转换为十进制度数

将提取出的度、分、秒转换为十进制度数：

=LEFT(A1,FIND("°",A1)-1) + MID(A1,FIND("°",A1)+1,FIND("'",A1)-FIND("°",A1)-1)/60 + RIGHT(A1,LEN(A1)-FIND("'",A1)-1)/3600

这个公式将度、分、秒分别除以相应的比例（60和3600），并将它们相加，以得到十进制度数。

二、使用TEXT函数

Excel的TEXT函数可以帮助将DMS格式的数据转换为特定格式，但在转换为十进制度数时，需要结合其他函数使用。

2.1 使用TEXT函数提取度、分、秒

=TEXT(LEFT(A1,FIND("°",A1)-1),"0")
=TEXT(MID(A1,FIND("°",A1)+1,FIND("'",A1)-FIND("°",A1)-1),"0")
=TEXT(RIGHT(A1,LEN(A1)-FIND("'",A1)-1),"0")

2.2 组合并转换为十进制度数

=TEXT(LEFT(A1,FIND("°",A1)-1),"0") + TEXT(MID(A1,FIND("°",A1)+1,FIND("'",A1)-FIND("°",A1)-1),"0")/60 + TEXT(RIGHT(A1,LEN(A1)-FIND("'",A1)-1),"0")/3600

三、使用自定义函数（VBA）

对于需要经常进行DMS到DD转换的用户，自定义函数可以更加方便和高效。

3.1 打开VBA编辑器

按下Alt + F11，打开VBA编辑器。

3.2 插入新模块

在“插入”菜单中选择“模块”，然后在模块中输入以下代码：

Function DMSToDD(DMS As String) As Double
    Dim degrees As Double
    Dim minutes As Double
    Dim seconds As Double
    Dim degreesPos As Integer
    Dim minutesPos As Integer
    Dim secondsPos As Integer
    degreesPos = InStr(1, DMS, "°")
    minutesPos = InStr(1, DMS, "'")
    secondsPos = InStr(1, DMS, """")
    degrees = Val(Left(DMS, degreesPos - 1))
    minutes = Val(Mid(DMS, degreesPos + 1, minutesPos - degreesPos - 1))
    seconds = Val(Mid(DMS, minutesPos + 1, secondsPos - minutesPos - 1))
    DMSToDD = degrees + (minutes / 60) + (seconds / 3600)
End Function

3.3 使用自定义函数

在Excel中，使用自定义函数DMSToDD转换DMS为十进制度数。例如，假设DMS数据在A1单元格：

=DMSToDD(A1)

四、示例和注意事项

4.1 示例

假设在A列中有如下数据：

A1: 35°20'30" A2: 120°15'45" A3: 75°10'20"

使用上述方法之一，可以将这些数据转换为十进制度数。最终结果将如下：

B1: 35.3417 B2: 120.2625 B3: 75.1722

4.2 注意事项

数据格式一致性：确保所有DMS数据格式一致，以便公式或函数能够正确解析。
精度：注意小数点后的精度，通常保留到小数点后四位已经足够精确。
负数和方向：如果涉及南半球或西半球的坐标，记得在度数前添加负号。

五、总结

将度分秒（DMS）转换为十进制度数（DD）在Excel中并不复杂，可以通过公式、TEXT函数或自定义VBA函数实现。公式方法适合单次或少量数据转换，TEXT函数结合公式适合中等量数据，自定义VBA函数则适合大量数据或频繁转换需求。 选择合适的方法可以提高工作效率，确保数据的准确性和一致性。