Pro vzdálenost dvou bodů používám tuto funkci - mám to v Accesu, pro Excel to bude snad totéž. Parametry jsou severní a východní souřadnice ve stupních, funkce je nejprve převede na radiány a pak počítá vlastní vzorec (ten jsem někde opsal a přepsal do basicu, ta odmocnina je tam proto, že Basic nemá přímo funkci ArcusCosinus).
'výpočet vzdálenosti po povrchu koule
Function Distance(s1, s2, v1, v2 As Double) As Double
Const R = 6378
Const pi = 3.14159
s1 = s1 * pi / 180
s2 = s2 * pi / 180
v1 = v1 * pi / 180
v2 = v2 * pi / 180
parametr = Sin(s1) * Sin(s2) + Cos(s1) * Cos(s2) * Cos(v1 - v2)
parametr = Sqr(1 / parametr ^ 2 - 1)
Distance = Atn(parametr) * R
End Function