VBA：値が一致する場合、その値の横に値が一致する別シートへのリンクを作成

Question

有識者 様

いつもお世話になります。
Excelのマクロの使い方について、質問があり投稿致しました。

下記が行いたい事となりますが、過去の回答を確認しても上手くExcel上で実現できず、
再度ご質問させて頂く流れとなりました。
お手数ですが、マクロについての有識者がおりましたら回答頂けないでしょう。

アウトプットのイメージとして、サンプルファイルを用意致しました。
中身をご確認いただければわかる通り、事前にSheet１とSheet２が用意されており、
データが事前に入っております。
（リンク列は空白。）

その後、Sheet1にリンク作成ボタンを配置し、そこを押下すると、
Sheet1を基準に、名称列にある値がSheet2の値列に同一の値がある場合、
リンクマーク▼を作成し、マークをクリックすると、Shee2の同一の値のセルに飛べるようにしたいです。

例えば、下記の例ですと、Sheet1)の名称1は、Sheet２）の名称１と一致するので、
Sheet1)のリンク列に▼マークを作成し、それをクリックすると、Sheet２）へのリンクが
飛べるようになります。

＊同様にSheet２からSheet２へ飛べるようにしたいです。Sheet２の値列は一部セルがマージされております。

Sheet1)
No リンク 名称 値１ 値２
1 ▼ 名称1 12243 oiref
2 ▼ 名称2 242 efhn
3 ▼ 名称3 23254 dsfvn
4 ▼ 名称4 3 23254
5 ▼ 名称5 35 3
6 名称6 23243 35
7 ▼ 名称7 243 23243

Sheet2) *値列はマージしているケースがあります。また投稿形式の都合上、リンク列にサンプル２やサンプル６などずれていますが、あくまで詳細情報列にある値となります。
No リンク列 値 詳細情報１ 詳細情報２
1 ▲ 名称１ サンプル１ サンプル18
2 サンプル２ サンプル19
3 サンプル３ サンプル20
4 ▲ 名称２ サンプル４ サンプル21
5 名称３ サンプル５ サンプル22
6 サンプル６ サンプル23
7 サンプル７ サンプル24
8 ▲ 名称4 サンプル８ サンプル25
9 サンプル９ サンプル26
10 サンプル１０ サンプル27
11 ▲ 名称5 サンプル１１ サンプル28
12 サンプル１２ サンプル29
13 サンプル１３ サンプル30
14 サンプル１４ サンプル31
15 ▲ 名称７ サンプル１５ サンプル32
16 サンプル１６ サンプル33
17 サンプル１７ サンプル34

有識者の方がおりましたら、教えて頂けないでしょう。

ちなみに下記のマクロを組みましたが、実行しても何も値が返ってきません。
デバックモードでもそのまま値が追加されます。

下記がコードになります。
Sub Sample()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim i As Long
Dim rng As Range
Application.ScreenUpdating = False
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
With sh1
For i = 5 To .Cells(Rows.Count, "C").End(xlUp).Row
If .Range("C" & i).Value <> "" Then
Set rng = sh2.Cells.Find(What:=.Range("C" & i).Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
.Hyperlinks.Add Anchor:=.Range("B" & i), Address:="#'" & sh2.Name & "'!" & rng.Address, TextToDisplay:="▼"
sh2.Hyperlinks.Add Anchor:=rng.Offset(0, -1), Address:="#'" & sh1.Name & "'!" & .Range("C" & i).Address, TextToDisplay:="▲"
End If
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Comments

[coco_bauer]

質問に「ちなみに下記のマクロを組みました」とありますが、そのマクロのコードを質問に追加してください。

[saito.kaz]

大変失礼いたしました。質問にコードを記載致しました。

[imihito]

Sheet1の名称1の数字は半角文字、Sheet2では全角文字ですが実データも同様ですか？

Answer 1

参考程度の話ですが、今回のケースであればワークシート関数でもある程度は対応できたりします。

質問にあるデータで、Sheet2の値が$D$5:$D$21の範囲で、Sheet1のC5セルに式を入れる場合の例です。

=IFERROR(HYPERLINK(CELL("address", INDEX(Sheet2!$D$5:$D$21, MATCH(JIS(D5), Sheet2!$D$5:$D$21,0))),"▼"),"")

INDEX+MATCHで対象のセルへの「参照」を取得し、CELL関数でアドレスを取得、そのアドレスをHYPERLINK関数に渡します。

MATCHでエラーが起きることがあるのでIFERRORで空文字列に差し替えます。

Answer 2

ぱっと見ですが、
マクロを作成してから、Ａ列を挿入したりしました？
見ている箇所が一列ずつずれている様な印象なのですが。