Sub 分离A列中的超链接到指定表的B和C列()
    i = Worksheets("数据库").Range("b60000").End(xlUp).Row
    For Each h In Worksheets("临时").Hyperlinks
        Worksheets("数据库").Cells(i + 1, 2) = h.TextToDisplay
        Worksheets("数据库").Cells(i + 1, 3) = h.Address
        Range(Worksheets("数据库").Cells(i + 1, 3), Worksheets("数据库").Cells(i + 1, 3)).Hyperlinks.Add Anchor:=Cells(i + 1, 3), Address:=Cells(i + 1, 3)
        i = i + 1
    Next
End Sub

Sub 分离A列中的超链接到指定表的B和C列()
    i = Worksheets("数据库").Range("b60000").End(xlUp).Row
    For Each h In Worksheets("临时").Hyperlinks
        Worksheets("数据库").Cells(i + 1, 2) = h.TextToDisplay
        Worksheets("数据库").Cells(i + 1, 3) = h.Address
        Range(Worksheets("数据库").Cells(i + 1, 3), Worksheets("数据库").Cells(i + 1, 3)).Hyperlinks.Add Anchor:=Cells(i + 1, 3), Address:=Cells(i + 1, 3)
        i = i + 1
    Next
End Sub