Excel - As-the-crow-flies distance function

MS Excel 'standard' formula

Given the following input fields (in degrees): From latitude (cell A2), From longitude (cell B2), To latitude (cell C2), To longitude (cell D2), the formula is

=IFERROR(ACOS(COS(RADIANS(90-A2))*COS(RADIANS(90-C2))+SIN(RADIANS(90-A2))*SIN(RADIANS(90-C2))*COS(RADIANS(B2-D2)))*6371;0)
Dependent on your MS Excel setting you may have to replace the semicolon by a comma.

Alternative user defined function: MS Excel VBA code to be put in a module

In MS Excel, press Alt+F11 to open the Visual Basic Editor (Windows). Via top menu: Insert → Module. Copy the MS Excel VBA code below into the module.

Public Function globeDistance(LatFrom As Single, LonFrom As Single, LatTo As Single, LonTo As Single) As Single Const toRadians = 3.14159265358979 / 180 Const R = 6371 Dim dLat As Single, dLon As Single, lat1 As Single, lat2 As Single, a As Single lat1 = LatFrom * toRadians lat2 = LatTo * toRadians dLat = lat2 - lat1 dLon = (LonTo - LonFrom) * toRadians a = Sin(dLat / 2) * Sin(dLat / 2) + Sin(dLon / 2) * Sin(dLon / 2) * Cos(lat1) * Cos(lat2) globeDistance = R * 2 * WorksheetFunction.Atan2(Sqr(1 - a), Sqr(a)) End Function
Note: in general, a user defined function will execute slower than a standard function, which can become a disadvantage in case of a large amount of formulas.