excle vba循环限制

我有一个循环2约28000和inner循环约100 000次迭代。 据我所知，ir是有限的iterrations，因为我得到溢出错误。

如果有帮助，有代码

Sub slp() Dim sx As Long Dim sy As Long Dim sr As Long Dim att As Long 'SLP rindu skaits 23845 For sr = 2 To 23845 lapa = Sheets("SLP").Cells(sr, 5).Value sx = Sheets("SLP").Cells(sr, 6).Value sy = Sheets("SLP").Cells(sr, 7).Value 'sub metr Dim attn As Long Dim x1 As Long Dim x2 As Long Dim y1 As Long Dim y2 As Long Dim s1 As Long Dim s2 As Long Dim a12 As Long Dim c1 As Long Dim c2 As Long Dim lr As Long Dim attn1 As Long Dim slin As Long Dim rindas As Long attn = 1000000000 'liniju rindas rindas = Sheets(lapa).Cells(Sheets(lapa).Rows.Count, "A").End(xlUp).Row For lr = 2 To rindas 'rindas ~100 000 'koordinasu kolonnas x1 = Sheets(lapa).Cells(lr, 3).Value y1 = Sheets(lapa).Cells(lr, 4).Value x2 = Sheets(lapa).Cells(lr, 5).Value y2 = Sheets(lapa).Cells(lr, 6).Value slin = Abs((y2 - y1) * (sx - x1) - (x2 - x1) * (sy - y1)) s1 = Sqr((x1 - sx) ^ 2 + (y1 - sy) ^ 2) s2 = Sqr((x2 - sx) ^ 2 + (y2 - sy) ^ 2) a12 = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2) c1 = (a12 ^ 2 + s2 ^ 2 - s1 ^ 2) / (2 * a12 * s2) c2 = (a12 ^ 2 + s1 ^ 2 - s2 ^ 2) / (2 * a12 * s1) 'ja abu < cos pozitivi, tad punkts ir kaut kur blakus linijai nevis tuvāk kadam tas galapunktam attn1 = WorksheetFunction.Min(s1, s2) If c1 >= 0 And c2 >= 0 Then attn1 = slin 'meklejam mazako attalumu lidz visam linijam att = WorksheetFunction.Min(attn, attn1) attn = att Next lr Sheets("SLP").Cells(sr, 11) = att Next sr End Sub 

一开始，我只是总结了一些价值观，如果是内部循环，那就没有了，然后它就起作用了。 也许有人可以build议这个代码的一些优化。 也许我正在做一些不正确的事情，因为我在Excel VBA中有非常短的经验。

谢谢！