批量建超链接

1、以offic2010为例，打开EXCEL，点击视图，再点击宏，

2、出现如图对话框，输入VC，点击创建。

3、在此对话框内输入“Sub VC()Dim r As Integer, hang A衡痕贤伎s Integer, lujing As String荑樊综鲶, wenjian As String, lianjie As String r = ActiveSheet.UsedRange.Rows.Count For hang = 2 To r wenjian = Cells(hang, "A").Value lianjie = wenjian Cells(hang, "B").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lianjie Application.ScreenUpdating = False Next hangEnd Sub注意”A“和”B“是指A列和B列，此代码是指在A列输入的是文件的名称，B列是运行后出现的超超链接。

4、如图点击红方框内的三角形运行宏。

5、运行后如图所示，A列为文件名字，B列为超链接。保存后将此EXCEL与超链接文件放在同一文件夹内，点击超链接，就可以打开对应的文件。