基于单元格内容的文件超链接

Question

我需要根据该单元格的内容将超链接插入整个列。

 Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://FILE LOCATION/" & "A2"

所以如果A2包含0106-15-9562，我需要它来超链接

"http://FILE LOCATION/0106-15-9562"

......等等整个专栏。

Answer 1

一种方式：

Dim cell As Range

For Each cell In Range(Range("A2"), Range("A2").End(xlDown))
    ActiveSheet.Hyperlinks.Add cell, "http://example.com/" & cell.Value
Next