迭代代码添加超链接与Excel VBA

我有在一个单元格中创build超链接的代码。 我希望它沿着列F或C或E遍历所有填满的单元格。

Sub insertVeryLongHyperlink() Dim curCell As Range Dim longHyperlink, TextToDisplay1 As String Set curCell = Range("G1") ' or use any cell-reference longHyperlink = [E1] TextToDisplay1 = [C1] curCell.Hyperlinks.Add Anchor:=curCell, _ Address:=longHyperlink, _ SubAddress:="", _ ScreenTip:=" - Click here to follow the hyperlink", _ TextToDisplay:=TextToDisplay1 End Sub 

Answer 1

这会在column G产生超链接。

 Sub InsertVeryLongHyperlink() Dim cl As Range For Each cl In Range("G1:G" & Range("G1").End(xlDown).Row) cl.Hyperlinks.Add Anchor:=cl, Address:=cl.Offset(0, -2).Text, TextToDisplay:=cl.Offset(0, -4).Text, ScreenTip:=" - Click here to follow the hyperlink" Next cl End Sub 

• cl.Offset(0, -2).Text是E列
• cl.Offset(0, -4).Text是C列