Excel VBA遍歷三元組並添加負號

Question

我有一個kml文件的經緯度值，我想在下面的字符串中改變所有的經度值。

我認爲最簡單的方法是將它們放入三元組，並遍歷每一行並向第一個數字添加負號。

latlong = "1.48638,54.9621256516623,0 1.48521523184216,54.9621324923351,0 1.48405081848398,54.9621530122697,0 1.48288711461705,54.9621872052157,0 1.48172447471685,54.9622350607575" 

latlong = Replace(latlong, " ", vbCrLf) 

從

1.48638,54.9621256516623,0 

1.48521523184216,54.9621324923351,0 

..... 

到

-1.48521523184216,54.9621324923351,0 

-1.48405081848398,54.9621530122697,0 

非常感謝您的幫助。

Answer 1

試試這個

latlong = "-" & latlong 
latlong = Replace(latlong, " ", vbCrLf & "-")