网络优化工程师常需计算基站间距，逐个测量费时费力。本文介绍一款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格式存储文件。
