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

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