列2のハイパーリンクの名前として列1の文字列をExcelのすべての行に割り当てる方法 - excel、vba、excel-vba、excel-2016

このようなExcelスプレッドシートがあります。

入力：

Link Name   Hyperlink   Other Data
Group 1     google.de/1     1
Group 1     google.de/2     2
Group 2     google.de/3     3
Group 2     google.de/4     4
Group 3     google.de/5     5

私はすべての文字列を割り当てるVBA subが必要です Link Name リンク先の名前として Hyperlink：

望ましい出力：

Link Name   Hyperlink   Other Data
Group 1     Group 1         1            # Hyperlink: Underlined, blue
Group 1     Group 1         2            # Hyperlink: Underlined, blue
Group 2     Group 2         3            # Hyperlink: Underlined, blue
Group 2     Group 2         4            # Hyperlink: Underlined, blue
Group 3     Group 3         5            # Hyperlink: Underlined, blue

ザ Hyperlink クリック可能になり、で定義されているようにラベルが付けられます。 Link Name。私の現在のアプローチはループをループしているようには見えません。 Link Name カラム：

現在のアプローチ：

Sub rename_links()
For Each h In ActiveSheet.Hyperlinks   // Select hyperlink
h.TextToDisplay = _
Replace(h.TextToDisplay, h.TextToDisplay, ActiveCell.Offset(0, -1).Value)
Next
End Sub

電流出力：

Link Name   Hyperlink   Other Data
Group 1     Link Name           1
Group 1     Link Name           2
Group 2     Link Name           3
Group 2     Link Name           4
Group 3     Link Name           5

私はこれが ActiveCell.Offset(0, -1).Value 影響を受けない Next.

Excel VBAのすべての行にわたって列1の文字列を列2のハイパーリンクに名前として割り当てる方法は？

回答：

回答№1の場合は3

これを実現するために、2列目に単純な式を使用できます。

=HYPERLINK("your link address here", A1)

リンク名としてA1のテキストを使用します。

---

あるいはその式を書くためにVBAを使う：

Range("B1:B10").Formula = "=HYPERLINK(""your link address here"", A1)"

---