使用EXCEl宏批量生成超链接

Sub 超链接()
'
' 超链接 Macro
'
Dim table_a As String
Dim table_b As String
Dim a As String '定义变量a 存放第一个sheet页的单元格坐标
Dim b As String '定义变量b 存放第二个sheet页的单元格坐标

table_a = "wms"
table_b = "new_old"
For i = 2 To 378  '循环第一个sheet页的第二行到第80行
a = "A" & i
    For j = 2 To 31 '循环第二个sheet页的第二行到第730行
    b = "A" & j
        If Sheets(table_a).Range(a).Value = Sheets(table_b).Range(b).Value Then '判断两个单元格的值是否相等
        Sheets(table_a).Hyperlinks.Add Anchor:=Sheets(table_a).Range(a), Address:="", SubAddress:=table_b & "!" & b  '第一个sheet页的单元格超链接到第二个sheet页相应的单元格
        Sheets(table_b).Hyperlinks.Add Anchor:=Sheets(table_b).Range(b), Address:="", SubAddress:=table_a & "!" & a  '第二个sheet页的单元格超链接到第一个sheet页相应的单元格
        End If
    Next
Next
End Sub