谁有高斯坐标转换经纬度的Excel公式?
发布网友
共1个回答
热心网友
Sub test()
a=0.6 “X转换系数
b=0.8 “Y转换系数
For i=2 to 1000
If Cells(i,2)=“” then exit for
Cells(i,5)=Val(split(Cells(i,2),”=“)(1))*a
Cells(i,6)=Val(split(Cells(i.3),”=“)(1))*b
Next
End Sub
