一VBA

1. Excel 超链接设置：

rows_a = ActiveSheet.UsedRange.Rows.Count

For i = 1 To rows_a

   Range("A" & i).Select

   ID = Range("F" & i).Value

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

        "" & ID

Next i

2. 对比超链接设置：

rows_a = ActiveSheet.UsedRange.Rows.Count
'
For i = 1 To rows_a
Range("B" & i).Select
ID = Range("B" & i).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://hpre4.safe.zzbc.qihoo.net:8360/searchpage/diff.php?k=" & ID & "&pnum=1&e=6&diff=1&diff_72=0&diff_60=0&dev=1&idc=2&exact=0&detailmark=0&__t=&skv_idc=1&appoint_ip=182.118.31.208&appoint_port=8360&appoint_param=sep_code:utf8&appoint_ip1=182.118.31.208&appoint_port1=8360&appoint_param1=sep_code:utf8&appoint_ip2=182.118.31.208&appoint_port2=8360&appoint_param2=sep_code:utf8&kv_click=1&kv_weight=20"

Next i