使用VBA程序在Excel中批量添加超链接；将Excel其中一个工作表的某列添加另外一个工作表的厢咆廨炝某列的超链接。
工具/原料
Excel2003
VBA
1.开启VBA宏功能-宏安全性改为最低
1、将Excel的VBA宏安全性改为最低，这样方便运行宏代码
2、在Excel表格任意位置添加【按钮控件】
3、改变按钮控件名称
4、双击按钮控件，打开代码编辑VBA窗口；删除全部显示的代码。
5、'复制此步骤所有内容到VBA窗口，包括这句话。OptionExpli罕铞泱殳citPublicSub惺绅寨瞀PiLiangChaoLianJie()'01----批量超链接，将一个工作表中的列作为超链接添加到另外一个工作表中'宏由keke录制，时间:2019/9/25'DimS1AsString,S2AsStringDimSHEET_NAMEAsStringDimLINK_CELLAsString,Link_SAsString,LINK_NameAsStringDimIAsIntegerDimLINK_textAsStringDimStr_i%,End_i%Str_i=InputBox("请输入起始行",,1)End_i=InputBox("请输入结束行",,50)SHEET_NAME=InputBox("请输入需要添加超链接的【工作表】名字",,"sheet1")S2=InputBox("请输入需要创建连接的【列】名",,"A")LINK_Name=InputBox("请输入链接到的【工作表】的名字",,"sheet2")Link_S=InputBox("请输入链接到工作表所在的【列】名",,"A")ForI=Str_iToEnd_iLINK_CELL=LINK_Name&"!"&Link_S&IS1=S2&IRange(S1).SelectSheets(SHEET_NAME).SelectIfWorksheets.Application.Range(LINK_CELL).Value=""ThenLINK_text=LINK_CELLElseLINK_text=Worksheets.Application.Range(LINK_CELL).ValueEndIfActiveSheet.Hyperlinks.AddAnchor:=Selection,Address:="",SubAddress:=LINK_CELL,TextToDisplay:=LINK_textNextIEndSubPrivateSubCommandButton1_Click()PiLiangChaoLianJieEndSub
6、返回Excel窗口单击按钮执行指令。
7、该程序会提示麈亢刃饬你输入指定的参数，可以参考提示输入。如下图：一步一步输入，如果输入错误，程序崩溃，重新执行指令。
8、如果程序错误【单击】【结束按钮】然后重新单击批量超链接按钮即可，重新操作。