求圆心公式EXCEL中计算方位角距离公式

2020年9月20日发(作者：颜丹晨)
EXCEL中计算方位角距离公式
电子表格中求方位角的公式
结果显示为 度 格式的计算式：
=(PI()*(1 - SIGN(B3-$$B$$1) 2) - ATAN((A3-$$A$$1) (B3-$$B$$1)))*180PI()&
Excel 中求方位角公式：a1,b1放起始点坐标 a3,b3放终点坐标。

结果显示为 度 分 秒 格式的计算式：
=INT((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1) (B3-$$b$$1)))*180PI())
&

°

& INT( ((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1) (B3-$$b$$1)))*180
PI()-INT((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1) (B3-$$b$$1)))*180
PI()))*60)&

′

&INT( (((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1) (B3-
$$b$$1)))*180PI()-INT((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1) (B3-
$$b$$1)))*180PI()))*60-INT(((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1)
(B3-$$b$$1)))*180PI()-INT((PI()*(1 - SIGN(B3-$$b$$1) 2) - ATAN((A3-$$a$$1)
(B3-$$b$$1)))*180PI()))*60))*600)10 &″
其中：A1,B1中存放测站坐标,a3,b3放终点坐标。

上面的计算出来的是度分秒格式，也就是字符串格式，不能用来计算，只是用来看的哟！
下面这个简单一点：
=(PI()*(1 - SIGN(B3-B1) 2) - ATAN((A3-A1) (B3-B1)))*180PI()
Excel 中求方位角公式：a1,b1放起始点坐标 a3,b3放终点坐标。


求距离公式:
=Round(SQRT(POWER((A3-$$A$$1),2)+POWE R((B3-$$B$$1),2)),3)


一、度分秒值换算为度
首先要将单位符号都去掉，形成 1112233 的形式，分秒小于十的要在其前补0，必须如此，不然无
法判断分与秒的位置。
假设原始数据在A列，第一个数据在A2单元格。
在你需要放入转换结果的一个单元格内（最 好是与A2同一行，这样有大量原始数据要转换时，直接下
拉就可以转换所有数据），输入：
=
value
(MID(IF(LEN(A2)=6,CONCATENATE(
va lue
(MID(IF(LEN(A2)=6,CONCATENATE(

value
(MID(IF(LEN(A2)=6,CONCATENATE(
回车即可。
下面解释转换方法和函数意义。
以 1112233 为例。
算法是111+（2260）+（333600），即把分、秒都算成度后相加。
MID：意 为选择指定的字符，具体写法为MID(数据,顺位,字符数)，先指定1-3位（度位），再指定4-5
位（分位）60，再指定6-7位（秒位）3600。
value
：意为转换成为数值，这样才能进行运算。
关键问题在于，度有可能是2位数，如果这样整个数就是6位，上例算式中的
IF(LEN( A2)=6,CONCATENATE(
就是处理这样的问题的。意思为如果整个是6位数，就在其前补 个0，若不是6位，就直接用原来的数
值（呵呵，在中国及周边没有6位和7位以外的经纬度，现在这个 算法适用于6位和7位的经纬度）。
IF：条件函数，用法：IF(logical_test，value
_if_true，
value
_if_false)，其中logi cal_test为判
断条件，在本例中为LEN(A2)=6，满足条件执行
value_if_true，不满足则执行
value
_if_false。
LEN：为返回字符数的函数。
CONCATENATE：为合并字符函数，写法为：CON CATENATE(text1，text2，...)，如要直接使用文本字符，
就在其上加英文引号 。
二、度转换为度分秒
假设原始数据在A列，第一个数据在A2单元格。
在你 需要放入转换结果的一个单元格内（最好是与A2同一行，这样有大量原始数据要转换时，直接下
拉就可 以转换所有数据），输入：
=CONCATENATE(INT(A2)，IF(INT((A2-I NT(A2))*60)<10，CONCATENATE(，INT((A2-INT(A2))*60))，
INT((A2-INT(A2))*60))，IF(ROUND(((A2-INT(A2))*6 0-INT((A2-INT(A2))*60))*60，0)<10，
CONCATENATE(， ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60))*60，0) )，
ROUND(((A2-INT(A2))*60-INT((A2-INT(A2))*60)) *60，0)))
回车即可。
解释如下：
以112.1234567度为例。
使用 CONCATENATE 文本组合函数，将分别计算出的度、分、秒组合在一起（其用法参照前一帖）。
本例中的INT(A2 )，取的是112，即度值；IF(INT((A2-INT(A2))*60)<10，CONCATENAT E(，
INT((A2-INT(A2))*60))，INT((A2-INT(A2))*60)) 取的是分值；
IF(ROUND(((A2-INT(A2))*60-INT((A2-INT(A2 ))*60))*60，0)<10，CONCATENATE(，
ROUND(((A2-INT(A 2))*60-INT((A2-INT(A2))*60))*60，0))，
ROUND(((A2 -INT(A2))*60-INT((A2-INT(A2))*60))*60，0))，取的是秒值。 < br>比较关键的一点是，分、秒在计算完后可能会小于10，这样就会出现本应为7位的度分秒值成了6位或5位，因此在计算分和秒时，加了一个条件语句，即若其值小于10，就在前面补个0。
INT( (A2-INT(A2))*60)<10是判断分值是否小于10；
ROUND(((A2-INT( A2))*60-INT((A2-INT(A2))*60))*60，0)<10是判断秒值是否小于10。
INT 是取整函数，可对任意实数向下取整为最接近的整数，向下的意思为往小的方向，如 =INT(3.38)
返回3，=INT(-3.38)返回-4。该函数与 TRUNC 函数都有取整的功能，TRUNC 函数可以按需要截取
数字的小数部分，而 INT 函数则将数字向下舍入到最接近的整数。INT 和TRUNC 函数在处理负数
时不同点：TRUNC(-4.3，0)返回-4，而INT(-4.3)返回-5。
ROUND 为四舍五入函数，本例中秒值不再留有小数，因此将其四舍五入了，这就是计算分值的时候
用 INT 函数，而计算秒值的时候用 ROUND 函数的原因。该函数的写法为 ROUND(number，
num_digits)，其中的number是待处理的数值（也可是表达式的结果），num_digits 是保留的小数位
数。本例中的小数保留为0。
三、求度分秒范围转度的中心坐标值
这里只算经度或纬度的一项，要算另一项，只需改动原始数据位置，重复操作即可。
假设原始数据在A列和B列，B列数据比A列数据大。第一个数据项在A2和B2。
每个值的算法原理是：
将经纬度都设立成7位，将度、分、秒都折算成度，转换方法参照前帖 。用度来计算的好处是不会产生
度分秒的进位问题，而同时度也可在上图时使用，若想将度转换成度分秒 ，就参照本人的前一帖。
结果的算法是（B2-A2）2+A2。
在你需要放入转换结果的 一个单元格内（最好是与A2、B2的同一行，这样有大量原始数据要转换时，
直接下拉就可以转换所有 数据），输入：
=((
value
(MID(IF(LEN(B2)=6，CONC ATENATE(，B2)，B2)，1，3))+
value
(MID(IF(LEN(B2 )=6，
CONCATENATE(，B2)，B2)，4，2))60+
value
(MID(IF(LEN(B2)=6，CONCATENATE(，B2)，A2)，6，
2))36 00)-(
value
(MID(IF(LEN(A2)=6，CONCATENATE(，A 2)，A2)，1，3))+
value
(MID(IF(LEN(A2)=6，
CO NCATENATE(，A2)，A2)，4，2))60+
value
(MID(IF(LE N(A2)=6，CONCATENATE(，A2)，A2)，6，
2))3600))2+
value
(MID(IF(LEN(A2)=6，CONCATENATE(，A2)，A2)，1， 3))+
value
(MID(IF(LEN(A2)=6，
CONCATENATE (，A2)，A2)，4，2))60+
value
(MID(IF(LEN(A2)=6，C ONCATENATE(，A2)，A2)，6，
2))3600
回车即可。
度分秒转换
请教：在Excel中度分秒（六十进制）如何转换为度（十进制）。


lm6692朋友的方法不错呀 INT(B7) INT((B7-INT(B7))*100)60
((B7-INT(B7))*100-INT((B7-INT(B7))*100))36
世界上最远的距离不是天涯海角，而是我在你身边，你却不知道我爱你！ 我也被这个问题难住了，没
办法就把度分秒各放一列，然后用公式转换一下再用。
你用INT （）函数－－取整函数试试？比如说275°30′27″表示为275.3027，设该值为A,那你首先用< br>A-INT(A)=0.3027,设该值为B，那么1ING(100B)就是分离出来的分数，其除以 60即得到0.5°，对于
秒的转换可依此思路进行，最后全部相加就转为十进制了，整个过程可以通过 函数的嵌套进行。最终公
式如下：INT(B7) INT((B7-INT(B7))*100)60 ((B7-INT(B7))*100-INT((B7-INT(B7))*100))36

可以转换，只是第一次输入感觉麻烦，不过以后的就通过复制可简单多了，谢谢
lm6692朋友的方法不错呀 INT(B7) INT((B7-INT(B7))*100)60
((B7-INT(B7))*100-INT((B7-INT(B7))*100))36
世界上最远的距离不是天涯海角，而是我在你身边，你却不知道我爱你！ 5楼的方法是最有效的.
不错，这样在EXCEL中就可以输入转换了！
一、角度的度分秒与小数点格式互相转换 EXCEL能将角度转换成度? 如
将:120.999722222222°转换成120°59′59″. 32.55°转换成32°33′0″ 我知道可以用函数
RADIANS将角度转换为弧度，但我们工 程测量上用到的角度计算是以度分秒（比如：126°12′36″）
来记录并进行计算的，在Exce l中怎样用这些数据进行计算？ 1.设定公式“=A124”,并将单元格的格
式设定为自定义格式:[h]°mm′ss″ 2.直接 设定公式=TEXT(A124,1种方法，方
便于在计算时将度分秒转为度，这时只需乘24即可第2 种方法，度分秒转为度时，需要用公式
=SUBSTITUTE(SUBSTITUTE(SUBSTI TUTE(B1,
盘上的符号)
二、度分秒的输入问题在工程计算中经常要用到度、分、秒 ，通常的做法就是插入特殊字符来输入。
但是在EXCEL中显示的结果却不近人意，三者之间的字符间 距太大，看起来就象刚学会写字的人写的东
西。其实这是由字体引起来的，一般情况下系统默认的字体是 宋体，在这种情况下输入度分秒的时候，
它们之间的间距就会比较大。下面几种字体的效果就比较好： Arial Unicode Ms , Batang , Dotum ,
Gungsuh , New Gulim , Gulim 。当然也不只是这几种，大家也可以自己测试一下，找一下其它合适的
字体。
如何利用excel进行角度计算

稿件来源：长江水文网 发布时间：2005-9-21 作者： sailor 编辑： sailor
如何利用excel进行角度计算
随着计算机的广泛使用，水文测量量角度计算也开始使用 计算机进行运算，下面我以一个例子讨论如何利用excel进行角度
计算。
首先 如何将所有角度转换成弧度。
将度、分、秒分别用一列表示如B、C、D列


用EXCEL中的计算公式，将分和秒折算成度，生成一列角度值，然后用RADIANS函数将角度值 转化成一列弧度值.

为了方便对比我们将B、C、D列合并成H列，用角度表示




然后进行计算，下面以向各角度均加9°12′3″即弧度0.1 62为列进行计算。加上9°12′3″（弧度
0.162）后弧度的值如下。



此时我们将弧度转换回角度表示，进行对比。其中角度转换公式我们采用的公式如下=TR UNC(DEGREES(G13))&°
′
″
算法：先用DEGREES函数将弧度 值转换成角度值，然后取该角度值的整数部分为度，用“°”分割，然后将原值减去整数的值乘
以60， 整数部分即是分，秒与分同样方法。


同时，我们也可以将弧度值用于其他计算。分别取cos、sin值如下。

< br>另外，介绍下我们如何利用用公式得到的结果，选择该列，单击“编辑”菜单上的“拷贝”，单击“编辑” 菜单上的“选择性粘贴”，
然后单击“数值”，即可。
写得比较仓促，不免有错漏，请各位指正。
角度的度分秒与小数点格式互相转换作者：
一、角度的度分秒与小数点格式互相转换
EXCEL能将角度转换成度°分′秒″格式吗?
如将:120.999722222222°转换成120°59′59″.
32.55°转换成32°33′0″
我知道可以用函数RADIANS将角度转换为弧度，但我们工 程测量上用到的角度计算是以度分秒（比如：
126°12′36″）来记录并进行计算的，在Exce l中怎样用这些数据进行计算？
1.设定公式“=A124”,并将单元格的格式设定为自定义格式:[h]°mm′ss″
2.直接设定公式=TEXT(A124,°mm′ss″
第1种方法，方便于在计算时将度分秒转为度 ，这时只需乘24即可
第2种方法，度分秒转为度时，需要用公式=SUBSTITUTE(SUBS TITUTE(SUBSTITUTE(B1,°′
″
(度分秒符号用单位软键盘上的符号)
二、度分秒的输入问题
在工程计算中经常要用到度、分、秒，通常的做法就是插入特殊字符来 输入。但是在EXCEL中显示的结
果却不近人意，三者之间的字符间距太大，看起来就象刚学会写字的 人写的东西。其实这是由字体引起
来的，一般情况下系统默认的字体是宋体，在这种情况下输入度分秒的 时候，它们之间的间距就会比较
大。下面几种字体的效果就比较好：
Arial Unicode Ms , Batang , Dotum , Gungsuh , New Gulim , Gulim 。
当然也不只是这几种，大家也可以自己测试一下，找一下其它合适的字体。

0 前 言

Microsoft Excel 是一款功能非常强 大的通用计算软件，只需简单的操作就可完成复杂计算，制作各种
表格，因此近年来在各行各业都得到了 普遍应用。在对工程设计周期和设计质量要求日益提高的今天，
设计者迫切需要一个效率高且易学易用的 辅助计算软件，而Excel是最好的选择，因此掌握Excel对公
路工程设计人员来说也是非常必要 的。

笔者在使用Excel从事公路工程设计的过程中积累了一些经验，这些方法实用性强 ，不用编程，易于掌
握，可成倍提高工作效率和准确性。

1 Excel在公路工程设计中的几个常用技巧

1.1 桩号“K0+000—K1+100”的实现

由于Excel强大的表格处理功能，不少设 计人员用它来制作各种工程数量表，如路面工程数量表、防护
工程数量表，在表中常需要将桩号表示成“ K0+000”或“K0+000—K1+100”的形式。有人按手工制表的
习惯直接填写“K0+0 00—K1+100”，这样不但制表麻烦且修改不便，未能发挥Excel的强大功能。要实
现“K1 +100”的格式，可以在单元格中直接填写“1100”，然后设置单元格式数值类型为自定义
“K0 +000”即可。若要显示桩号小数点后两位，则定义“K0+000.00”。要实现“K0+000—K1+ 100”需
用到TEXT函数，首先在A1、B1单元格分别填入起终桩号0及1100，然后使用公式
C1=TEXT(A1,～即可。

按以上方法处理有明显的好处，首先，桩号按数 值格式填写，输入方便快捷，桩号虽显示为“K1+100”
的文本形式，但其本身仍是数值，方便了后 续计算的引用。另外修改起来也会方便很多。

1.2 角度“90°10′11″”的实现

在公路工程设计中，常常要用到角度的几种表达形式，为方便输入，常采用小数形式的角度（ DMS）格
式，如90度10分11秒，记为90.1011，为阅读清晰，表格输出则常采用形如90 °10′11″的度分秒
格式，而Excel内部函数使用的角度值均是以弧度表示的。Excel有D EGREES( )及RADIANS( )两个函
数可实现度与弧度之间的互化。而对于公路设计中经 常要用到的两个转换（DMS化弧度、弧度化度分秒）
则没有相应的函数。其实利用Excel的取整及 连接函数也是可以实现的。

1.2.1 MS化弧度

如表1所示，A 列是DMS格式的原始数据，使用公式B2=TRUNC(A2)、C2=TRUNC((A2-B2)*100 )、

D2=((A2-B2)*100-C2)*100、E2=RADIANS(B2+ C260+D26060)，然后复制公式到各列，则E列就是对应
的弧度值，可直接用于后续计算中。

表1








表2








1.2.2 弧度化度分秒

如表2所示，A列是弧度值，为方便对照，这里直接取用了表1的结果，输入 公式：B2=DEGREES(A2)、

C2=TRUNC(B2)、2=TRUNC(( B2-C2)*60)、E2=ROUND(((B2-C2)*60-D2)*60,1)、
F2=C 2&复制公式到各列，则F列就是完全符合工程习惯的角度输出
值。

注意：1. 表1中的B-D列及表2中的B-E列数据是中间结果，若在打印表格时不需要输出这些数据，
只需选中 这几列，按下鼠标右键，选择隐藏即可。

2. 以上计算使用了取整函数TRUNC( )及ROUND( )，不能用函数INT( )代替，否则当角度为负时会出
错，至于这些函数的详细用法及区别请阅读Excel的联机帮助文档。

1.3 如何去掉单元格中的“0”

在制作各种工程数量表时，常常在 单元格中填写公式，由Excel自动计算，若计算结果为零，将在单元
格中显示0，而按工程习惯，数 量为零时一般不应填写。如何去掉这些“0”？若直接删除，则公式无
法保留，当修改原始数据使计算结 果不为零时无法自动恢复显示。在公式中加入判断“IF(A1=0, ,A1)”
是一种解决办法，但更简洁的办法是使用菜单“工具—〉选项”，在对话框中单击“视图” 选项卡，
去掉零值复选框即可。

1.4 几个实用的拖拽复制功能

1.4.1 自动产生等间距桩号 公路设计中常需填写等间距桩号0、20、40、60……，可先 填写前两个
桩号“0”、“20”，选中这两个单元格，然后将鼠标指针移到填充柄（选中单元格的右下 角）上，按
住左键向下拖动，就会依次出现“40、60、80……”，速度快且不易出错。

1.4.２ 不带格式的公式复制 利用Excel的拖拽复制功能复制公式是Excel使用者熟知的一项操作，




但它是带格式复制的，当要求目标单元格格式与源单元格格式不同时（如多页连续 的工程数量表，每页
边缘的单元格要加粗一侧边框，而其他单元格都用细线边框），在复制完公式后，还 要将被破坏的单元
格格式再改回来，但是如果拖拽时不是按住鼠标左键，而是按住右键，那么在拖拽结束 释放右键时就会
弹出一菜单，选择“以值填充”就可达到复制公式而保留目标单元格格式的目的。

1.4.３ 快速公式复制

在表格中将公式复制到下面若干行是Exc el中常见的操作，通常的做法是填好第一行的公式，然后拖拽
填充柄复制到其他各行，若行数很多时拖 拽也会不便，因为鼠标移出工作区后工作表的滚动很快，不易
找到终止位置，若在选中一行公式后在填充 柄上双击，Excel就会参照邻近的行数自动复制直到最后一
行。

2 结 语

本文仅列举了几个Excel在公路工程设计中最常用的操作技巧，意在抛砖引玉，Ex cel还有许多强大功
能如宏、排序等都可应用于公路工程设计实践中，只有在工作中勤于思考，不断探 索，掌握Excel的其
他功能，才能让Excel更好地为公路工程设计服务。