エクセルでセルへハイパーリンクを連続的に設定したい

エクセルでハイパーリンクを設定して、例えばA1のセルをクリックすると、B2に飛ぶように設定させることってできますよね。
A1のセルとB2のセルに表示される文字は全く別です。
あくまでA1をクリックするとB2に飛ぶというだけです。
これを、A2をクリックするとB3、A3→B4、A4→B5…
と飛ぶように、まとめて設定したいのです。
ただし、例えばB2に飛ぶように設定したA1のセルをC4にコピーしたとしても、
C4をクリックした時には、D5ではなく、B2に飛ぶようなやり方でお願いします。

No.1 回答者： MackyNo1 回答日時： 2012/06/09 00:32

>A2をクリックするとB3、A3→B4、A4→B5…

と飛ぶように、まとめて設定したいのです。

元のブック名がBook1.xlsxで作業シートがSheet1なら、A２セルに以下の式を入力して下方向にオートフルしてください（A2セルに移動先のセル番地を表示）。

=HYPERLINK("[Book1.xlsx]Sheet1!B"&ROW(A2),"B"&ROW(A2))

＞ただし、例えばB2に飛ぶように設定したA1のセルをC4にコピーしたとしても、
C4をクリックした時には、D5ではなく、B2に飛ぶようなやり方でお願いします。

数式で対応する場合はセル位置が違うと別のセルを参照するので、このようなケースでは「コピー」ではなく「移動」の操作で対応してください。

A1セルの周囲にカーソルを置いてC4セルにドラッグアンドドロップしてこのセルを移動し、元のセルには、その下のHYPERLINK数式セルをオートフィルコピーしてください。

No.2 回答者： kybo 回答日時： 2012/06/09 05:40

ごく簡単なマクロで出来ます。

ハイパーリンクを設定したいセル（A1:A10)を範囲選択して実行します。

Sub macro()
Dim C As Range
For Each C In Selection
　C.Hyperlinks.Add C, "", C.Offset(1, 1).Address
Next C
End Sub