谁能帮我做一个VBA的宏工具，计算下PSC的复用距离，谢谢！

leekcoco

       表中数据如下，PSC列数据从0-511，每个PSC都对应不同的经纬度信息，其中PSC值有相同的，需要计算如果PSC值相同且DUARFCN也相同，计算出距离，然后显示在另外一个表中，显示的时候只是显示出小于某个值的（比如显示小于3KM的情况，大于3KM的就不需要显示出来。）

CellName	LAC	SACPC	PSC	CellLON	CellLAT	UUARFCN	DUARFCN
501-二高-3	63747	15013	16	91.77116	29.22141	9763	10713
501-二高-2	63747	15012	8	91.77116	29.22141	9763	10713
501-二高-1	63747	15011	0	91.77116	29.22141	9763	10713
502-教体委-3	63747	15023	44	91.76683	29.2386	9763	10713
502-教体委-2	63747	15022	36	91.76683	29.2386	9763	10713
502-教体委-1	63747	15021	28	91.76683	29.2386	9763	10713
503-泽当饭店餐厅室分-4	63747	15034	437	91.773395	29.243585	9763	10713
503-泽当饭店西楼室分-5	63747	15035	436	91.773395	29.243585	9763	10713
503-泽当饭店主楼1室分-6	63747	15036	435	91.773395	29.243585	9763	10713
503-泽当饭店东楼室分-7	63747	15037	434	91.773395	29.243585	9763	10713

原始数据截图：

原始数据

最终需要显示出来的结果如下：

PSC	CellName	LAC	SACPC	CellLON	CellLAT	CellName	LAC	SACPC	CellLON	CellLAT	Distance（KM)
0	501-二高-1	63747	15011	91.77116	29.22141	580-错那县出城口-1	63747	15801	91.96313	28.02429	134.58

显示结果：

最终计算

哪位大侠会的话，帮帮忙！
我VBA的文盲，请哪位大侠帮帮忙，帮我完成下，我谢谢了！

{:soso_e183:}{:soso_e183:}{:soso_e183:}{:soso_e183:}{:soso_e183:}{:soso_e183:}

hnwxm

。。。。。。。。。。。。。。。。。。。。

leekcoco

hnwxm 发表于 2013-12-18 16:18
。。。。。。。。。。。。。。。。。。。。

谢谢了，很强大。

jaxzhu

看看，谢谢分享