エクセル リンク

質問

シート１にもシート２にもランダムに数字が入っていて、
例えば、シート１の「４５」のクリックしたら、シート２の「４５」にリンクできるようにしたいんです。

シート１の「ｎ」をクリックし、シート２の「ｎ」へのリンクをすべての数字に付けたいんですが、簡単な方法はないでしょうか？
（数字の数２０００くらい）

よろしくお願い致します。

回答No.1

misatoanna

> シート１にもシート２にもランダムに数字が入っていて（２０００くらい）
マクロを利用すれば早いですね。

シート１を表示し、数値が入っているセル範囲を選択して　Area1　という名前を
つけ、同様に、シート２の数値が入っている範囲には　Area2　という名前をつけ
て、次のマクロを実行します。

Sub Test()
　Dim nm, rng
　For Each nm In ThisWorkbook.Names
　　If Left(nm.Name, 4) <> "Area" Then nm.Delete
　Next
　For Each rng In Range("Area2")
　　If rng.Value = "" Then GoTo NXT1
　　If IsNumeric(rng.Value) = True Then
　　　ActiveWorkbook.Names.Add Name:="LNK" & rng.Value, RefersToLocal:=rng
　　End If
NXT1: Next
　For Each rng In Range("Area1")
　　If rng.Value = "" Then GoTo NXT2
　　If IsNumeric(rng.Value) = True Then
　　　ActiveSheet.Hyperlinks.Add Anchor:=rng, _
　　　　　　　　　Address:="", SubAddress:="LNK" & rng.Value
　　End If
NXT2: Next
End Sub