一VBA

lulierhan

于 2013-11-13 10:23:59 发布

阅读量1k

点赞数

分类专栏： VBA 文章标签： vba 一级引擎链接

本文链接：https://blog.youkuaiyun.com/lulierhan/article/details/15809721

版权

VBA 专栏收录该内容

2 篇文章

订阅专栏

这篇博客介绍了如何利用VBA（Visual Basic for Applications）脚本来自动化设置Excel表格中的超链接。首先，通过获取工作表的使用范围，然后遍历每一行，将指定单元格（F列）的值作为超链接地址，添加到对应的A列单元格中，实现快速批量设置超链接。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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