sub lianjie() dim i as long for i= 1 to 100 sheet1.cells(i,1).select '选中单元格 sheet1.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "Sheet" & i & "!A1", TextToDisplay:="Sheet" & "i" '添加链接 next end sub 能看懂就用,看不懂我也不懂
d