针对超链接的使用

以下每个单元格均有网址，但是没有建立超链接。

使用以下代码，可以批量快速建立超链接。

Private Sub CommandButton1_Click() Dim i As Long rs = Range("a1048576").End(xlUp).Row For i = 1 To rs Sheets(1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="http://" & Cells(i, 1).Value, TextToDisplay:=Cells(i, 1).Value Next End Sub

使用以下代码可以直接打开对应的网站

Private Sub CommandButton3_Click() Range("a1").Hyperlinks(1).Follow End Sub

使用以下代码删除第一列所有超链接，但是文本内容不删除。

Private Sub CommandButton2_Click() Columns("A:A").Hyperlinks.Delete End Sub

也可以用以下方法删除

Private Sub CommandButton3_Click() Dim I as hyperlink For each I in activesheet.hyperlinks i.delete next End Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。