Очень срочно нужа помощь!

[сфинкс]

Вижу в теме другого форума помогают заумно

Поэтому пусть будет здесь макрос
черпающий данные из ячеек

Sub DLINA()
Dim x1, y1, x2, y2 As Long
x1 = Range("A1").Value
y1 = Range("B1").Value
x2 = Range("C1").Value
y2 = Range("D1").Value
L = Sqr((x2-x1)^2+(y2-y1)^2)
a$ = Str$(x1) + "," + Str$(y1) + "," + Str$(x2) + "," + Str$(y2) + ", L=" + Str$(L)
MsgBox (a$)
End Sub

Причём как заполнять переменные из ячеек
пишут в любой методичке по VBA

Очевидно заполнив данными крайние верхние левые ячейки
классическими данными 0 4 3 0 ответ будет 5