excel - Microsoft Excel Visual Basic 中将 DMS 格式转换为十进制的函数

Question

我在 Excel 女士中使用 Visual Basic 时遇到问题。我有一种 DMS 格式（经度和纬度）的坐标数据，但它不是通常的格式。数据看起来像这样：

 E 103 29 12.4562 
 W 3 9 1.4562 
 N 16 5 32.4333 
 S 16 5 2.4333

我想将其转换为标准的十进制格式。但是，我以前从未使用过 Visual Basic。E、N 和 W、S 的约定分别为 1 和 -1。我期待该数据列表的输出是

 103.4867934
 -3.1504045
 16.09234258
 -16.08400925

我希望有人可以制作一个可视化的基本代码来转换这些数据，因为我有很多这样的数据，我不能手动转换它。

谢谢。

Answer 1

您可以使用以下公式代替 VBA：

=--(INDEX({"+","+","-","-"},MATCH(LEFT(A1,1),{"E","N","W","S"},0))&MID(A1,3,FIND(" ",MID(A1,3,LEN(A1))))+MID(A1,FIND("}}}",SUBSTITUTE(A1," ","}}}",2))+1,2)/60+MID(A1,FIND("}}}",SUBSTITUTE(A1," ","}}}",3))+1,99)/3600)