[已解决]如何快速添加超链接

七月太阳雪

新建 Microsoft Excel 工作表.zip (9.31 KB, 下载次数: 8)

2015-7-31 11:01 上传

点击文件名下载附件
如何按照总表的排名顺序，把后面的EXCEL表格依次排序，并添加超链接，请把具体步骤写下来，谢谢

最佳答案

月排行榜 / 总排行榜

hysys32

2015-7-31 11:39

并没有杭州这个表 删掉后 可以试试这段代码
Sub 宏1()
    arr = Sheets("总表").Range("a1:b20").Value
    For i = 2 To UBound(arr)
    Sheets(arr(i, 2)).Move before:=Sheets(i)
    Next
    addhuperlink
End Sub

Sub addhuperlink()
Sheets("总表").Select
    For i = 2 To Sheets("总表").[b2:b20].Count + 1
        Cells(i, 2).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            Cells(i, 2).Value & "!A1", TextToDisplay:=Cells(i, 2).Value
    Next
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, i
    With Sheets(1)
        A = .Range("a1").CurrentRegion
        For i = 2 To UBound(A)
            .Hyperlinks.Add Anchor:=.Cells(i, "b"), Address:="", SubAddress:=A(i, 2) & "!a1"
        Next i
    End With
End Sub
2.rar (27.42 KB, 下载次数: 3)

2015-7-31 11:31 上传

点击文件名下载附件


等学习其它方法

hysys32

并没有杭州这个表 删掉后 可以试试这段代码
Sub 宏1()
    arr = Sheets("总表").Range("a1:b20").Value
    For i = 2 To UBound(arr)
    Sheets(arr(i, 2)).Move before:=Sheets(i)
    Next
    addhuperlink
End Sub

Sub addhuperlink()
Sheets("总表").Select
    For i = 2 To Sheets("总表").[b2:b20].Count + 1
        Cells(i, 2).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            Cells(i, 2).Value & "!A1", TextToDisplay:=Cells(i, 2).Value
    Next
End Sub