Расчет длин отрезков по координатам.

[Aleksandr]

Как сделать чтобы код выполнялся пока в ячейке Cells(kol1 + 2, 3) не будет 0

Private Sub knopka1_Click()
 kol1 = 43
 kol2 = 44
 
     Dim cell As Range: Application.ScreenUpdating = False
  For Each cell In Range([S40], Range("S" & Rows.Count).End(xlUp)).Cells

   Cells(kol2, 5) = Sqr((Cells(kol1 + 2, 3) - Cells(kol1, 3)) ^ 2 + (Cells(kol1 + 2, 4) - Cells(kol1, 4)) ^ 2)
     kol1 = kol1 + 2
     kol2 = kol2 + 2
 Next cell
End Sub

[IgorGO]

For Each cell In Range([S40], Range("S" & Rows.Count).End(xlUp)).Cells
if Cells(kol1 + 2, 3) = 0 then exit for
Cells(kol2, 5) = Sqr((Cells(kol1 + 2, 3) - Cells(kol1, 3)) ^ 2 + (Cells(kol1 + 2, 4) - Cells(kol1, 4)) ^ 2)

[Aleksandr]

Спасибо работает.