『忠犬もちしば』のAIを育てるとグッズが貰える!>>

エクセルのマクロを利用して下記のようなことは出来ますでしょか?
マクロをご教示ください。

1行目は見出し
E列の空白以外、すべてのデータに追加して
ハイパーリンク (例 http://oshiete.goo.ne.jp/)を貼りたいです。

例えば
E2に portal_answer とあれば https://oshiete.goo.ne.jp/portal_answerをリンク

E5に articles/qa/ とあれば https://oshiete.goo.ne.jp/articles/qa/をリンク

途中空白もあり、最終行は常に変わります。
ご指南の程、宜しくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

エラー対策はしていません。


ハイパーリンクを設定したい範囲を選択した状態で動作させます。E列のみでしか施さないのならE列全体を選択した状態で行ってください。

Sub 教goo()
 Dim c As Range
  Selection.SpecialCells(xlCellTypeConstants, 23).Select
   For Each c In Selection
    c.Hyperlinks.Add c, _
    Address:="http://oshiete.goo.ne.jp/" & c.Value
   Next c
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます。
無事、自分なりにエラーも回避し、
対応しました。

お礼日時:2015/12/16 22:24

F2セルに


=IF(E2="","",HYPERLINK("http://oshiete.goo.ne.jp/"&E2))
っていうのは却下かな
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング