特定列に記述されたリンク先を別セル別ワードからリンクしたいのですが…

質問

Ａ列に6～7行（うまく整理すれば6行に統一可能）の管理番号があり、Ｂ～Ｅ列には説明があります。
Ｅには「写真へ」という文字を入力してあり同様のパターンで約250行記述しています。
この「写真へ」にハイパーリンクを挿入するのですが、リンク先は（例）「http://www.oshiete○○.jp/Photo/abc123」とした場合に、「http://www.oshiete○○.jp/Photo/」までは全て共通、「abc123」は管理番号でABC以下の数値が3～4桁で入力されています。
現在はひとつの「写真へ」のセルに「http://www.oshiete○○.jp/Photo/」のリンクをつくり、全てにコピーした後、１行づつ「ハイパーリンクの編集」で「http://www.oshiete○○.jp/Photo/」の後に商品番号を付けています。

もう少し楽な方法を模索してF～G列を作業エリアにしてF列に全てに共通の部分「http://www.oshiete○○.jp/Photo/」を入力、G列は「=F1&A1」としてハイパーリンクの文字列は出来上がったのですが「写真へ」の文字表記のままこれらのリンクを付ける方法があれば教えて下さい。

※実際はネットショップのカートへのリンクですが、セキュリティ面からカートの元アドレスを見えるように表記する事が禁止されているので、困っています。

回答No.1

kigoshi · ベストアンサー

VBA使わない方法は思いつきませんでした。
VBA使っても良いなら、
１）そのシートのシートタブを右クリック。「コードの表示」をクリック。
２）右側のエディタエリアに下記コードを貼り付け。
３）［Ｆ５］キーを押して実行。

で、いけると思います。

＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
Sub putLink()
Dim rIdx As Long
For rIdx = 1 To Range("E65536").End(xlUp).Row
If Cells(rIdx, 5).Value <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(rIdx, 5), Address:=Cells(rIdx, 6).Value, TextToDisplay:=Cells(rIdx, 5).Value
End If
Next
End Sub

お礼

ありがとうございます。
VBAは使ったことが無いのですが、説明いただいた通りにやってみたところ、実行できました。
これで作業効率が飛躍的に向上します！