Excel中使用VBA进行度分秒与十进制度的转换

发现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 = 3
    latColIdx = 8
    num = Application.CountA(ActiveSheet.Range("A:A"))
    For i = 2 To num
        Longitude = Cells(i, LongColIdx)
        arr = Split(Longitude, "°")
        Cells(i, LongColIdx + 1) = arr(0)
        Longitude = arr(1)
        arr = Split(Longitude, "'")
        Cells(i, LongColIdx + 2) = arr(0)
        Longitude = arr(1)
        arr = Split(Longitude, """")
        Cells(i, LongColIdx + 3) = arr(0)
        Cells(i, LongColIdx + 4) = Cells(i, LongColIdx + 1) + Cells(i, LongColIdx + 2) / 60 + Cells(i, LongColIdx + 3) / 3600
        
        Latitude = Cells(i, latColIdx)
        arr = Split(Latitude, "°")
        Cells(i, latColIdx + 1) = arr(0)
        Longitude = arr(1)
        arr = Split(Longitude, "'")
        Cells(i, latColIdx + 2) = arr(0)
        Longitude = arr(1)
        arr = Split(Longitude, """")
        Cells(i, latColIdx + 3) = arr(0)
        Cells(i, latColIdx + 4) = Cells(i, latColIdx + 1) + Cells(i, latColIdx + 2) / 60 + Cells(i, latColIdx + 3) / 3600
    Next i
End Sub

处理完结果如下：

结论：

1、对于Excel大批量数据处理，效率极高。

　　① 开发环境方面，无需搭建特定的开发环境，在Excel里就可以进行编码；

　　② 编码方面，由于直接是寄生于Excel自身，相当于一种内嵌的API，其API接口简单、集成度高、调用方便；

2、上述代码其实可以额外起一个作用，就是对原始度分秒数据的文本格式做质检。

附：用VBA得到EXCEL表格中的行数和列数