Excel VBA遍历三元组并添加负号
我有一个kml文件的纬度和长度的string,我想改变下面的string中的所有经度值负。
我认为最简单的方法是将它们放入三元组,并遍历每一行,并为第一个数字添加一个负号。
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
非常感谢您的帮助。
尝试这个
latlong = "-" & latlong latlong = Replace(latlong, " ", vbCrLf & "-")