Dada una lista de pares de coordenadas geográficas, puede implementar la fórmula de Haversine directamente en Excel.
La forma más simple de usar esta fórmula (o una más precisa, pero creo que no es su caso) consiste en presionar Alt+F11
para abrir el Editor de VBA, hacer clic Insert --> Module
y luego (copiar y) pegar, por ejemplo, el código sugerido amablemente por blah238.
Public Function getDistance(latitude1, longitude1, latitude2, longitude2)
earth_radius = 6371
Pi = 3.14159265
deg2rad = Pi / 180
dLat = deg2rad * (latitude2 - latitude1)
dLon = deg2rad * (longitude2 - longitude1)
a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(deg2rad * latitude1) * Cos(deg2rad * latitude2) * Sin(dLon / 2) * Sin(dLon / 2)
c = 2 * WorksheetFunction.Asin(Sqr(a))
d = earth_radius * c
getDistance = d
End Function
Habrá una nueva getDistance
función personalizada (unidad = kilómetro) disponible en su hoja de cálculo que acepta cuatro parámetros, es decir, los dos pares de coordenadas, de la siguiente manera:
getDistance(latitude1, longitude1, latitude2, longitude2)
donde latitude1, longitude1, latitude2, longitude2
debe ser reemplazado por sus referencias de celda relativas.