扫码下载APP
及时接收最新考试资讯及
备考信息
【问题】
如何将工作薄中的全部工作表都在sheet1中建上链接?
【解答】
代码:
Dim Pt As Range
Dim i As Integer
With Sheet1
Set Pt = .Range("a1")
For i = 2 To ThisWorkbook.Worksheets.Count
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
上一篇:如何将工作簿中的命名单元格删除?
下一篇:如何删除表格内的特定数值?
Copyright © 2000 - www.chinaacc.com All Rights Reserved. 北京正保会计科技有限公司 版权所有
京B2-20200959 京ICP备20012371号-7 出版物经营许可证 京公网安备 11010802044457号