VBA批量计算两点距离

网络优化工程师常需计算基站间距，逐个测量费时费力。本文介绍一款VBA程序，可快速计算两点间距离，显著提升工作效率，减少重复操作，实现批量处理，方便实用。

1、 选择开发工具查看源码。

2、 把代码粘贴到查看框中即可。

3、 选择结果工作表。

4、 选择原始数据工作表。

5、 原始数据表为空，请检查并确认数据是否已正确导入或填写。

6、 End

7、 将当前工作表第i行第1列的数据复制到结果工作表第rowvar行第1列。

8、 将当前工作表第i行第2列的值赋给结果工作表第rowvar行第2列的单元格。

9、 将当前工作表第i行第3列的值赋给结果工作表第rowvar行第3列。

10、 将工作表结果中第 rowvar 行第 4 列的值设置为当前工作表第 j 行第 1 列的内容。

11、 将工作表结果中第 rowvar 行第 5 列的单元格值设置为当前工作表中第 j 行第 2 列的单元格内容。

12、 将工作表结果中第 rowvar 行第 6 列的单元格值设置为当前工作表中第 j 行第 3 列的值。

13、 将距离值写入结果工作表第 rowvar 行第 7 列的单元格中。

14、 选择结果工作表并激活。

15、 点击保存按钮，选择xlsm格式存储文件。