ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA ¶W³sµ²ºÃ°Ý

¦^´_ 1# Michelle-W
¸Õ¬Ý¬Ý¡C
  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
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD