Excel小数转度分秒技巧分享

来到golang学习网的大家，相信都是编程学习爱好者，希望在这里学习文章相关编程知识。下面本篇文章就来带大家聊聊《Excel小数转度分秒方法详解》，介绍一下，希望对大家的知识积累有所帮助，助力实战开发！

首先使用公式分解小数角度为度、分、秒三部分，再通过合并公式或VBA函数转换为“45° 30′ 15″”格式，适用于地理或天文数据处理。

如果您需要将Excel中的小数形式的角度值转换为更易读的度分秒格式，可以使用公式和函数组合来实现这一转换。这种操作常见于地理坐标或天文计算中。

本文运行环境：Dell XPS 13，Windows 11

一、使用公式分解小数角度

通过数学运算将小数角度拆分为度、分、秒三个部分。整数部分即为“度”，小数部分乘以60得到“分”，剩余小数再乘以60得到“秒”。

1、假设原始小数角度位于单元格A1，在B1中输入以下公式提取“度”：
=INT(A1)

2、在C1中输入以下公式计算“分”：
=INT((A1-B1)*60)

3、在D1中输入以下公式计算“秒”：
=((A1-B1)*60-C1)*60

4、可选：将三部分合并为一个文本字符串，在E1中输入：
=B1&"° "&C1&"′ "&ROUND(D1,2)&"″"

二、单个公式直接转换

使用一个复合公式直接将小数角度转换为度分秒的文本格式，适用于希望一步完成转换的用户。

1、在目标单元格中输入以下公式（假设原数据在A1）：
=INT(A1)&"° "&INT(MOD(A1,1)*60)&"′ "&ROUND(MOD(MOD(A1,1)*60,1)*60,2)&"″"

2、按回车后即可显示格式化结果，如“45° 30′ 15″”。

3、确保A1中的数值为十进制度格式，否则结果将不准确。

三、使用VBA自定义函数

对于频繁进行此类转换的用户，可通过编写VBA函数简化操作，实现一键转换。

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

2、插入新模块，粘贴以下代码：
Function DegToDMS(deg As Double) As String
Dim d As Integer, m As Integer, s As Double
d = Int(deg)
m = Int((deg - d) * 60)
s = Round(((deg - d) * 60 - m) * 60, 2)
DegToDMS = d & "° " & m & "′ " & s & "″"
End Function

3、关闭编辑器返回Excel，在任意单元格输入 =DegToDMS(A1) 即可获得度分秒结果。

文中关于Excel,VBA,公式,度分秒,小数的知识介绍，希望对你的学习有所帮助！若是受益匪浅，那就动动鼠标收藏这篇《Excel小数转度分秒技巧分享》文章吧，也可关注golang学习网公众号了解相关技术文章。