Excel中去掉链接的宏

sub test()
Dim hyl As Hyperlink
For Each hyl In Sheet1.Hyperlinks
hyl.Delete
Next
end sub

或者是

Dim c As Range
For Each c In ActiveSheet.UsedRange
c.Hyperlinks.Delete
Next