超链接宏

Question

=HYPERLINK("https://www.google.com/search?q=" & J2 & " TO " & S2, T2)

大家好。我正在尝试找出一个宏来将其应用于特定列（U 列）

上面的超链接只是从一个地址到另一个地址进行谷歌搜索，以显示两个地址之间的距离，以便我每天必须生成一份工作报告。通常我只是拖下公式，但有时我必须检查 1000 个地址，所以我想看看是否有一个宏可以用来快速应用它。

如有任何帮助，我们将不胜感激。

还没有尝试过。当前向下拖动命令以应用该命令。

Answer 1

请尝试一下。

Option Explicit

Sub AddFormula()
    Dim lastRow As Long
    Const KEY_COL = "U"
    lastRow = Cells(Rows.Count, KEY_COL).End(xlUp).Row
    Range("U2:U3" & lastRow).FormulaR1C1 = _
        "=HYPERLINK(""https://www.google.com/search?q="" & RC[-11] & "" TO "" & RC[-2], RC[-1])"
End Sub