小编kdr*_*d15的帖子

初学者活套在这里......我正在研究这个井距项目，该项目查看纬度/经度并确定下一个最近的井。我想我可能正在创建一个无限循环，或者程序需要永远运行（它循环遍历 15,000 行）。我的主要努力是试图确保将每个位置与数据集中的每个位置进行比较。从那里我取第二低的距离（因为与自身相比，最低的距离为零）。

Sub WellSpacing()
Dim r As Integer, c As Integer, L As Integer, lastrow As Integer
Dim lat1 As Double, lat2 As Double, long1 As Double, long2 As Double
Dim distance As Double, d1 As Double, d2 As Double, d3 As Double
Dim PI As Double

PI = Application.WorksheetFunction.PI()
L = 2
r = 3
c = 10
lastrow = Sheets("Test").Cells(Rows.Count, "J").End(xlUp).Row

For L = 2 To lastrow
    For r = 2 To lastrow
        lat1 = Sheets("Test").Cells(L, c) …