Excel でハイパーリンクも一緒に変更する方法。

質問

こんにちは☆

あるURLをエクセルで管理しています。

例えば、http://aaa.com/01/
と言った数字が最後に来るので、
最後が01～200までドラッグダウン（？）しました。

でも、リンク先は全部http://aaa.com/01/になってしまいます。

表示は、
http://aaa.com/01/
http://aaa.com/02/
http://aaa.com/03/

となっていても、

リンク先は、
http://aaa.com/01/
http://aaa.com/01/
http://aaa.com/01/

なんです。これを一括してずらりと変更する方法はないでしょうか？
よろしくお願いします。

回答No.3

noname#52504 · ベストアンサー

既に解決されたようですが、ご参考までに。

十数件程度であれば私も#1さんの方法でやりますが、
もし数百数千となれば、Enterを順に押していくのも一苦労ですね。
もっとスマートな方法がありそうな気もしますが、
私が試した中では下記の手順がもっとも早いように思われました。

１．HYPERLINK関数で正しい関数リンクをつくる
　まず#2さんが提案された方法で関数リンクを作ります。
　必ずしも別のシートである必要はありません。
　リンク先が変になってる元の文字列が、A列1行目からあるとすると、
　同じシートの適当な列の1行目で、

　=HYPERLINK(A1)

　としてフィル。

　これでリンク自体はできますが、
　このままだとA列をずっと残しておく必要があるので…

２．関数のリンクを、普通のリンクになおす
　Excelを起動するアイコンを使って新しいブックを開く。
　※新規作成ボタンではなく>Excel自体の起動アイコン<を使うのがポイントです。

　１で作った正しい関数リンクをコピーして、
　新しいブックに［形式を選択して貼り付け］
　［貼り付ける形式］で［HTML］を選択してOKをクリック
　※起動アイコンから起ち上げた別個のExcelなので、普通とは表示が違います。

３．元のブックに戻す
　２で作った正しい書式リンクをコピーして、
　元のファイルのA列に、今度は普通に貼り付けます。
　１で作った関数リンクは臨時のものなので削除してかまいません。

説明が長くなってしまいましたが、
慣れれば、たとえ数千件あろうと２分程度で済む作業です。

お礼

ありがとうございます。

例の「　A列　」を残さないといけない時点で、
関数の方を諦めたんですが、
これなら大丈夫ですね。

具体的に分かりやすく感謝します。

回答No.2

zap35

１つめはHYPERLINK関数を用いる方法です
Sheet1のA1:A200にURLアドレスを書いているとして、別シートのA1に
=HYPERLINK(Sheet1!A1)
と入力して、下方向にコピーします。

２つめはマクロでHyperlinkのアドレスを書き換える方法です
以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro2()
Dim r As Range
For Each r In Cells.SpecialCells(xlCellTypeConstants, 3)
　　If Left(r.Text, 4) = "http" Then
　　　　If r.Hyperlinks.Count > 0 Then
　　　　　　r.Hyperlinks.Delete
　　　　End If
　　　　r.Hyperlinks.Add anchor:=r, Address:=r.Text
　　End If
Next r
End Sub

お礼

ありがとうございます。

関数を用いた方法を試してみましたが、
同じシート内ではできないのですよね＾＾；

マクロは私には高度すぎて・・・（笑）

とても参考になりました。
お時間ありがとうございました。

回答No.1

noname#42041

一括でもなく結構面倒ですが、とりあえず。
作った200行をコピー→形式を選択して貼り付け→値
この時点でハイパーリンクなしのデータができます。
後は一番上のセルからひたすらF2とEnterを交互に押す。

もっといい方法はきっと誰かが答えてくださるでしょう。

お礼

ありがとうございます。

簡単で私にも実行できました。
私がしていた方法より、より早く作業が終わりました。

感謝いたします。