Question

我在for循环中寻找使用函数的方法（从地址获取坐标。这是我正在使用的https://myengineeringworld.net/2014/06/geocoding-using-vba-google-api.html代码），因为我有5000多个行。是否可以使用cells（row，col）.Value =函数。如果可以，我该怎么办？

Sub forLoop()
    Dim rw as Integer
    for rw = 680 to 700
        Cells(rw,7). Value = getCoordinates(rw,5) 'in the column 5 I have the adress
    next i
End Sub

Answer 1

您可能打算使用

Sub forLoop()
    Dim rw As Long 'should be long!
    For rw = 680 to 700
        Cells(rw, 7).Value = getCoordinates(Cells(rw, 5).Value) 
    Next rw 'must be rw not i
End Sub

请注意，如果模块中具有getCoordinates函数的代码，则还应该能够将其用作公式而不是VBA。

只需将以下公式写入G列：

=getCoordinates(E:E)

在for循环中使用宏

1 个答案: