Google maps Excel VBA：在超链接中插入单元格中的文本

我是这里的新手，有一个非常简单的问题。我在Excel中有一些横向/纵向数据，我想将其转换为谷歌地图街景超链接。我在这里查阅了另一篇关于如何将超链接放在一起的文章，但我正在努力研究如何将lat/long数据重复复制到网址的中间

我已将我的lat/long（decimal）以正确格式（即lat，long）连接到单个单元格中，该单元格位于第J列，并希望超链接位于第N列，该列应为：

{lat，从J列开始的长度}&cbp=12,90,0,5&layer=c

我试着在这里看一些其他的线程，但不能完全解决它，因为它们都是相当复杂的例子。希望有人能帮我解决这个问题！谢谢：）

考虑一下：

Sub dural()
    Dim s1 As String, s2 As String, s3 As String, s4 As String
    s1 = "http://maps.google.com/?cbll={"
    s3 = "}&cbp=12,90,,0,5&layer=c"
    s2 = Range("J1").Text
    s4 = s1 & s2 & s3
    With ActiveSheet
        .Hyperlinks.Add Anchor:=Range("N1"), Address:=s4, TextToDisplay:=s2
    End With
End Sub

因此，如果J1包含：

51.507351.,-0.127758

N1中的结果为：

{51.507351.，-0.127758}&cbp=12,90,0,5&layer=c

编辑#1:

要运行此列J，请使用此版本：

Sub dural2()
    Dim s1 As String, s2 As String, s3 As String, s4 As String
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "J").End(xlUp).Row
    s1 = "http://maps.google.com/?cbll={"
    s3 = "}&cbp=12,90,,0,5&layer=c"
    For i = 1 To N
        s2 = Range("J" & i).Text
        s4 = s1 & s2 & s3
        With ActiveSheet
            .Hyperlinks.Add Anchor:=Range("N" & i), Address:=s4, TextToDisplay:=s2
        End With
    Next i
End Sub

---

太好了，谢谢！你能告诉我怎么在300多行上重复这个吗？我试着把“J1”改成“J1:J300”，但它不喜欢。就是这样！非常感谢。