如何一次设置很多HYPERLINK

老鬼

其实RANGE对象的效率要比CELLS高，只不过看起来不太直观而已。你的要求用RANGE就很简单：Sub printname()

For i = 2 To Sheets.Count

    Range("B" & (i - 1)).Select

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

        Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name

Next i

End Sub