Sub link()Dim num, sheetnameWorksheets(1).Selectnum = WorksheetFunction.CountA(Columns("c:c"))'MsgBox numFor i = 2 To num'把第一個sheet中第3列第i行單元格的值賦值給sheetname，作為后面創(chuàng)建sheet時的名稱sheetname = Sheets(1).Cells(i, 3)'用單元格的值作為sheet名創(chuàng)建sheetOn Error Resume NextWorksheets.Add(after:=Worksheets(Worksheets.Count)).Name = sheetname'在新建的sheet中，給A1單元格輸入“返回”字符串Sheets(sheetname).Cells(1, 1) = "返回"'將新建的sheet中，返回字符串所在單元格創(chuàng)建鏈接，鏈接地址是第一個sheet中第3列，第i行單元格Sheets(sheetname).Hyperlinks.Add Anchor:=Sheets(sheetname).Cells(1, 1), Address:="", SubAddress:= _"匯總!C" & i'MsgBox """" & sheetname & "!A2"""'MsgBox Sheets(1).Cells(i, 3)'在第一個sheet中第3列，第i行添加鏈接，鏈接地址是第i個sheet的A1單元格Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Cells(i, 3), Address:="", SubAddress:=sheetname & "!A1"NextEnd Sub

?

轉(zhuǎn)載于:https://www.cnblogs.com/Willa/p/7262650.html

總結(jié)

以上是生活随笔為你收集整理的Excel VBA实现批量创建链接的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。