parsing行并有条件地删除分隔符或标记

我的背景是在C / C ++ …我还是很新的VBA,所以请原谅我。 我将纬度数据从数据库中拖放到Excel电子表格中,但是我收到了不需要的小数。 以下是我从电子表格中复制出来的片段。

无效数据的示例(在不需要的分钟值之后插入小数):

  • 38'5.'48.189
  • 38'5.'48.023
  • 38'5.'48.023
  • 38'5.'48.023

例如一些有效的数据:

  • 38'10'51.881
  • 38'10'51.881
  • 38'10'51.881
  • 38'10'52.000
  • 38'10'52.000
  • 38'10'52.000

我怎么能通过逐行删除所有我不想要的? 请注意,我想保留秒值的实际小数位数。 这些数据存储在我的电子表格的K列中。

编辑:我知道我可以转换为.csv,我知道如何编写一个程序在c + +将做到这一点,但一个vba脚本将是伟大的,为简单起见。 谢谢!

把你的select:)

我假设数据在列A中

使用Excel公式

将其粘贴到单元格B1中并将其复制下来。

=REPLACE(A9,FIND(".'",A9,1),2,"'") 

使用VBA

Sheet1replace为相关的表单。

 Sheets("Sheet1").Replace What:=".'", Replacement:="'", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

HTH

希德