批量建超链接

在EXCEL中批量建超链接，可以直接打开文件。

方法/步骤

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

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

在此对话框内输入“

Sub VC()

Dim r As Integer, hang As 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 hang

End Sub

注意”A“和”B“是指A列和B列，此代码是指在A列输入的是文件的名称，B列是运行后出现的超超链接。

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

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