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