宏使用列值

Question

我正在尝试创建一个宏，根据A列中的值向A列添加超链接。例如：

Column A
1234
2312
4432

我想要Hyperlink如下： “https://fixedstring.com/idno=1234”

其中1234基于该行的单元格值而变化。并且也是标签。

我想针对所有行对列A运行此宏...

Answer 1

试一试：

Sub HyperMaker()
   Dim r As Range
   For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
      v = r.Value
      If v <> "" Then
         r.Clear
         r.Hyperlinks.Add anchor:=r, Address:="https://fixedstring.com/idno=" & v
      End If
   Next r
End Sub