• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:特定列に記述されたリンク先を別セル別ワードからリンクしたいのですが…)

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

このQ&Aのポイント
  • A列に6~7行の管理番号があり、B~E列には説明があります。Eには「写真へ」という文字を入力してあり、同様のパターンで約250行記述しています。この「写真へ」にハイパーリンクを挿入する方法を模索しています。
  • 現在はひとつのセルにリンクをつくり、全てにコピーした後、ハイパーリンクの編集で商品番号を付けています。もっと楽な方法があれば教えてください。
  • ネットショップのカートへのリンクですが、セキュリティ面からカートの元アドレスを見えるように表記することが禁止されています。困っています。

質問者が選んだベストアンサー

  • ベストアンサー
  • kigoshi
  • ベストアンサー率46% (120/260)
回答No.1

VBA使わない方法は思いつきませんでした。 VBA使っても良いなら、 1)そのシートのシートタブを右クリック。「コードの表示」をクリック。 2)右側のエディタエリアに下記コードを貼り付け。 3)[F5]キーを押して実行。 で、いけると思います。 +++++++++++++++++++++++++++++++ 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

katsu009
質問者

お礼

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

関連するQ&A

専門家に質問してみよう