在Excel中快速批量添加超链接
海量的文本文件管理是一个相当有挑战的工作，经过崩溃式的分类失败后我决定用Excel来管理分类，用超链接的方式来浏览文件。但是单个添加超链接也是个海量的工作。于是用下面的VBA代码进行批量处理超链接问题，屡试不爽。下面的问题是在EXCEL文件里如何更有效的整理文件，毕竟以后还是有个变更文件目录的问题。
1. Alt+F11，进入VBA编辑界面；
2. Alt+I+M，插入一个Module；
3. 在右边Module的空白编辑区域，复制粘贴下面的所有内容；
4. F5，运行该VBA命令；
Sub 链接()
i = 2
Do While Range("A" & i).Cells.Text <> ""
Range("A" & i).Select
Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="F:\链接\" & Range("A" & i).Cells.Text, _
TextToDisplay:=Range("A" & i).Cells.Text
i = i + 1
Loop
End Sub
说明：“A”为列标题；"F:\链接\"是文件夹路径，相对路径可以删除引号中的内容。