EXCEL计算两经纬度之间距离宏.docVIP

利用excel计算两经纬度之间距离及角度 按ALT+F11进入VBA编译器 在工程管理器中插入“模块”，然后将下面代码粘贴到模块里 计算两经纬度之间距离=cal_long_lat(经度1,纬度1,经度2,纬度2) Public Function Cal_Long_Lat(ByVal long1 As Double, ByVal lat1 As Double, ByVal long2 As Double, ByVal lat2 As Double) As Double Const PI As Double = 3.1415926535 Dim AngleLong1, AngleLat1, AngleLong2, AngleLat2 As Double AngleLong1 = long1 * PI / 180 AngleLat1 = lat1 * PI / 180 AngleLong2 = long2 * PI / 180 AngleLat2 = lat2 * PI / 180 Dim sinX, cosX As Double sinX = Sin(AngleLat1) * Sin(AngleLat2) cosX = Cos(AngleL