Excel 创建超链接，链接到下一工作表中具有匹配文本的单元格

我想用超链接替换sheet1中B列中的所有文本，超链接将遍历到包含所述文本的工作表和单元格（第二次出现）

假设我们有表1：

Column A : Column B
T1       : Brand Values
T2       : Brand Text

就像我们可以通过找到所有选项来实现一样

因此，对于上述选项，创建一个指向图纸2单元格参考A3的超链接

我获得了创建链接的VBA代码：

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name

---

如何在另一个工作表中找到匹配文本的单元格引用？

对于每个工作表，找到匹配项

然后将匹配的地址写入超链接

子测试（）
将mySht设置为工作表，将sht设置为工作表
暗淡单元格作为范围，myRng作为范围
设置mySht=ActiveSheet
对于mySht.范围内的每个单元格（“B2:B3”）
对于工作表中的每个sht
如果sht.Name mySht.Name，则“查找除我之外的每个工作表”
设置myRng=Nothing
出错时继续下一步
设置myRng=sht.Cells.Find（what:=cell.Value，LookIn:=xlValues，lookat:=xlWhole）查找匹配项
如果不是myRng，那就什么都不是了
mySht.Hyperlinks.Add_
锚定：=单元_
地址：=“”_
子地址：=myRng.Address（True，True，xlA1，True）_
TextToDisplay:=cell.Value
退出
如果结束
错误转到0
如果结束
下一步
下一个细胞
端接头