将超链接添加到Excel中的长列？

Question

我有一个很长的列要添加超链接。 地址从＆＃39; https：www。***。com /＆＃39; +帐户ID开始。 所以每个小区都有自定义地址。 目前我刚刚创建了一个新的列使用

=HYPERLINK('https:www.***.com/'&$A1,$A1)

并向下拖动到列末尾。

我想知道我是否可以（绝对）直接在A列（帐户ID列本身）上进行操作，同时显示ID并显示超链接。

该列类似于：

Account ID
101010101
101010102
101010103
101010104
101010105
101010106
...

Answer 1

您可以将VBA用于此目的。这是VBA代码：

Sub LinkCreate()
Dim LastRow As Long, n As Integer, idName As String, addressLink As String
With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

For n = 2 To LastRow
    ActiveSheet.Cells(n, 1).Select
    idName = ActiveSheet.Cells(n, 1).Value
    addressLink = "http://google.com/" & idName
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=addressLink, TextToDisplay:=idName
Next n

End Sub

Here您可以看到我的示例文件