返回列表 上一主題 發帖

[發問] VBA 超連結疑問

回復 1# Michelle-W
試看看。
  1. Sub test()
  2.     Dim cell As Range
  3.     For i = 2 To [A65536].End(3).Row
  4.         Set cell = Cells(i, 1)
  5.         ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=Cells(i, 2).Value, TextToDisplay:=cell.Value
  6.     Next i
  7. End Sub
複製代碼

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題