Excel VBA实现批量创建链接

Posted 2020-09-30 Willa.Wang

Sub link()
    Dim num, sheetname
    
    Worksheets(1).Select
    
    num = WorksheetFunction.CountA(Columns("c:c"))
    ‘MsgBox num
    
    For i = 2 To num
        ‘把第一个sheet中第3列第i行单元格的值赋值给sheetname，作为后面创建sheet时的名称
        sheetname = Sheets(1).Cells(i, 3)
        
        ‘用单元格的值作为sheet名创建sheet
        On Error Resume Next
        Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = sheetname
        
        ‘在新建的sheet中，给A1单元格输入“返回”字符串
        Sheets(sheetname).Cells(1, 1) = "返回"
        
        ‘将新建的sheet中，返回字符串所在单元格创建链接，链接地址是第一个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"
                
    Next
        
End Sub