Excelの長い列にハイパーリンクを追加しますか？

Question

私はハイパーリンクを追加するために長い列を持っています。 アドレスは「https：www。***。com /」+口座IDで始まります。 各セルにはカスタマイズされたアドレスがあります。 は現在、私はちょうど新しい列が

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

を使用すると、列の端までドラッグして作成しました。

IDを表示したままでハイパーリンクを維持して、列A（アカウントID列自体）に直接（確かに）行うことができるかどうかを知りたいです。あなたは、この目的のためにVBAを使用することができます

Account ID 
101010101 
101010102 
101010103 
101010104 
101010105 
101010106 
... 

Answer 1

：

列は次のようなものです。ここでこれを行うための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あなたは私の例は