Sub text()
Sheets("表1").Hyperlinks.Add Anchor:=Cells(2, 1), Address:="", SubAddress:= _
"表2!B2", TextToDisplay:=Cells(2, 1).Value
End Sub
这是一个的示例 不知道你的那个表的规律
Sub text()
Sheets("表1").Hyperlinks.Add Anchor:=Cells(2, 1), Address:="", SubAddress:= _
"表2!B2", TextToDisplay:=Cells(2, 1).Value
End Sub
这是一个的示例 不知道你的那个表的规律