多谢分享了

vba 代码如下:
Const EarthRadius = 6378.137

Function Rad(d)


Rad = d * Application.WorksheetFunction.Pi / 180#

End Function



Function Distance(Lon1, Lat1, Lon2, Lat2)

Dim RadLat1 As Double
Dim RadLat2 As Double
Dim a As Double
Dim b As Double
Dim s As Double

RadLat1 = Rad(Lat1)
RadLat2 = Rad(Lat2)

a = RadLat1 - RadLat2
b = Rad(Lon1) - Rad(Lon2)


s = 2 * Application.WorksheetFunction.Asin(Sqr(Sin(a / 2) ^ 2 + Cos(RadLat1) * Cos(RadLat2) * (Sin(b / 2) ^ 2)))

s = s * EarthRadius

Distance = s

End Function

多谢分享了