批量加超链接的宏代码
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Sub 宏1()
'
' 宏1 宏
'
Dim I, J As Integer 'I--需加超链接单元格的行号；J--被引用单元格的行号
Dim X, Y, Z As String 'X--存储需加超链接单元格的范围；Y--存储需加超链接单元格范围的最后一个单元格名称；Z存储被引用单元格范围（表名！单元格:单元格）
I = 0
J = 0
X = 0
Y = 0
Z = 0
For I = 17 To 33 Step 1
J = I - 1
X = "B" & I & ":D" & I
Y = "D" & I
Range(X).Select
Range(Y).Activate
Z = "报表项目!A" & J & ":G" & J
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Z
Next
End Sub