发现Excel的VBA功能真是批量处理的一把利刃，工作中小试牛刀了一把，将Excel中度分秒形式的坐标批量处理成十进制度形式，处理完后用于GIS展点制图。
原Excel数据如下：
VBA代码如下：
Sub Coorder()
Dim Longitude, Latitude As String, arr
Dim num As Integer
Dim LongColIdx As Integer
Dim latColIdx As Integer
LongColIdx =
latColIdx =
num = Application.CountA(ActiveSheet.Range("A:A"))
For i = To num
Longitude = Cells(i, LongColIdx)
arr = Split(Longitude, "°")
Cells(i, LongColIdx + ) = arr()
Longitude = arr()
arr = Split(Longitude, "'")
Cells(i, LongColIdx + ) = arr()
Longitude = arr()
arr = Split(Longitude, """")
Cells(i, LongColIdx + ) = arr()
Cells(i, LongColIdx + ) = Cells(i, LongColIdx + ) + Cells(i, LongColIdx + ) / + Cells(i, LongColIdx + ) / Latitude = Cells(i, latColIdx)
arr = Split(Latitude, "°")
Cells(i, latColIdx + ) = arr()
Longitude = arr()
arr = Split(Longitude, "'")
Cells(i, latColIdx + ) = arr()
Longitude = arr()
arr = Split(Longitude, """")
Cells(i, latColIdx + ) = arr()
Cells(i, latColIdx + ) = Cells(i, latColIdx + ) + Cells(i, latColIdx + ) / + Cells(i, latColIdx + ) /
Next i
End Sub
处理完结果如下：
结论：
1、对于Excel大批量数据处理，效率极高。
① 开发环境方面，无需搭建特定的开发环境，在Excel里就可以进行编码；
② 编码方面，由于直接是寄生于Excel自身，相当于一种内嵌的API，其API接口简单、集成度高、调用方便；
2、上述代码其实可以额外起一个作用，就是对原始度分秒数据的文本格式做质检。