把excle表中A列的url全部变成其对应超链接的宏代码

把excle表中A列的url全部变成其对应超链接的宏代码如下：

Sub test()
For x = 2 To Range("a65536").End(xlUp).Row
    ActiveSheet.Hyperlinks.Add Cells(x, 1), Cells(x, 1).Text
Next
End Sub