
先选中你要添加超链接的单元格,然后按ALT+F11把下面的代码复制进去,按F5运行一下就行了Sub 超链接()For Each Rng In SelectionActiveSheet.Hyperlinks.Add anchor:=Rng, Address:="E:\查询\文件\2007\" & Rng & ".wps"NextEnd Sub(注:WPS个人版不支持宏,所以用不了!你想用的话,你就得用office办公软件的EXCEL才行)

先选中你要添加超链接的单元格,然后按ALT+F11把下面的代码复制进去,按F5运行一下就行了Sub 超链接()For Each Rng In SelectionActiveSheet.Hyperlinks.Add anchor:=Rng, Address:="E:\查询\文件\2007\" & Rng & ".wps"NextEnd Sub(注:WPS个人版不支持宏,所以用不了!你想用的话,你就得用office办公软件的EXCEL才行)