源代码Sub 超链接()For Each Rng In SelectionActiveSheet.Hyperlinks.Add anchor:=Rng, Address:="新建文件\" & Rng & ".log"NextEnd Sub运行保存
excel 超链接自动匹配
原文：http://blog.51cto.com/yangeinstein/2298878
