【excel】 超链接相关

如何导出超链接：

用visual basic处理

在excel中：Alt+F11 --> F7 --> 粘贴下面代码 -->F5（运行）， 则会在原列接右侧出现超链 

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

 

如何取消超链接：

方法1：点击一个单元格，右键 取消超链接， 然后格式刷下拉。

方法2：选中要取消的列，复制， 选择性粘贴（数值），即可取消。

 

如何加入超链接：

1. excel: 假设A2是url前缀，如：http://www.baidu.com/s?wd=，B2是要查询的query，

    在C2设置为如下就可以了；=HYPERLINK(A2&B2,B2)

 

    =HYPERLINK("http://www.baidu.com/s?sid=2145&wd="&B2,"百度一下") 

    =HYPERLINK("http://www.baidu.com/s?sid=2145&wd="&B2,B2)

2. python... 输出到htm，然后复制过去。。 因为HYPERLINK貌似不支持含有一些特殊符号的url

for line in open(fname, "r"):

    query = line.rstrip().split('\t')[0]

    url = "http://www.baidu.com/s?wd=" % (urllib.quote(query));

    print "<table><tr><td><a href=%s> %s </a></td></tr></table>" % (url, query)