如何由上一点坐标取得最近的坐标点？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主 Zaezhong	Q：如果设定了A为第一个点，要求第2个点离A的距离最近，第三个点离第二个点最近，以此类推。下图D2,E2,F2为基点，先确定距离上面点最近的点(D3,E3,F3)，再确定距离(D3,E3,F3)最近的点，依次类推，左边的点没有重复的 A： Sub 计算() Dim arrYS Dim arrJG Dim arrTemp Dim i&, j&, k& Dim TempDis& Dim Temp Dim lCount& '数组初始化 arrYS = Range("A2:C" & Range("A" & Cells.Rows.Count).End(xlUp).Row) lCount = UBound(arrYS) '遍历 For i = 1 To lCount - 1 '清空Temp数组 'Temp数组用来记录每个点到上一点的距离 ReDim arrTemp(1 To lCount) 'TempDis用来记录最小距离的点 TempDis = i + 1 For j = i + 1 To lCount '计算距离，存入Temp数组 For k = 1 To 3 arrTemp(j) = arrTemp(j) + (arrYS(j, k) - arrYS(i, k)) ^ 2 Next k '当发现根小距离小的时候，记录TempDis If arrTemp(j) < arrTemp(TempDis) Then TempDis = j Next j j = i + 1 '当最小距离改变的时候，将最小的交换到最前 If j <> TempDis Then For k = 1 To 3 Temp = arrYS(j, k) arrYS(j, k) = arrYS(TempDis, k) arrYS(TempDis, k) = Temp Next k End If Next i '结果输出 Range("D2").Resize(lCount, 3) = arrYS End Sub 根据坐标得出最近点坐标.rar
2楼成就滋味	谢谢分享
3楼后知	感觉有点复杂啊试了几遍都不行

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表