外鏈是一個網站博得搜索引擎網站青眼的關緊因素之一，領有堅強雄厚且康健的外鏈能力在搜索引擎網站不斷的算法改進中招架住各種狂風暴雨而矗立不倒。不過，有時，我們會發覺網站的外鏈一夜之間猛增，在這一鏈難求的時期，不要太爽呀，等等，務必不要欣慰太早，睜大眼球看仔細再點開看看，靠，全是垃圾外鏈，這些個垃圾外鏈不但來不得助於網站的名次反倒會被搜索引擎網站關心注視的，假如垃圾外鏈達到一定的量輕則降權，重則被K。

　　幸虧，堅強雄厚的百度站長工具供給了不接受外鏈的功能，幫忙我們趁早徹底整理這些個垃圾外鏈，但假如我們的網站外鏈較多，要一條一條的找出這些個垃圾仍然比較累人的。好在，懶人總有懶人的方法，作者通過摸索，我發覺這些個垃圾鏈接有一個並肩的獨特的地方，就是網址中裡面含有了些莫名希奇巧妙的字母，如

　　

　　本文正是經過這一特點標志利用excel供給的VBA施行過淋的，下邊紹介具體辦法。

　　第1步，從站長工具平臺下載全部外鏈，百度站長平臺供給了下載數值的功能，我們下載下來，默許為csv款式。

　　

　　第二步，用excel敞開保留的文件，另存為.xls款式，如我的外鏈.xls這是標准的excel款式了。插進去一個辦公表，將它拖到第二位置，如下所述圖。

　　

　　第三步，這也是最關緊的一步了，敞開excel點菜單》工具》宏》Visual Basic編輯器

　　

　　添加一個用戶窗體，拖1個文本框取名Txt_Rows，再拖一個按鍵取名Cmd_Find，構成如下所述界面

　　

　　再點編輯器點菜單上的工具》援用，我們援用一個正在表現式對象Microsoft VBscript Regular Expressions 5.5

　　

　　

　　如今我們雙擊查尋垃圾外鏈按鍵，進入了編程標准樣式，輸入以下代碼

　　Private Sub Cmd_Find_Click()

　　With Worksheets(1)

　　For i = 1 To Int(Txt_Rows.Text)

　　a = .Cells(i, 2).Value '原始鏈接

　　b = GetValue(a, ([A-Z0-9]{2}.){4,}, 0)

　　If b <> Then

　　t = t + 1

　　Worksheets(2).Cells(t, 1) = a

　　End If

　　Next

　　End With

　　MsgBox 執行完結

　　End Sub

　　Function GetValue(ByVal Content As String, ByVal patten As String, ByVal n As Integer)

　　On Error Resume Next

　　Dim objRE As New RegExp

　　Dim objMatches As MatchCollection

　　objRE.pattern = patten

　　objRE.Global = False

　　objRE.IgnoreCase = True

　　Set objMatches = objRE.Execute(Content)

　　If objMatches.Count > 0 Then

　　m = objMatches.Item(0).SubMatches(n)

　　GetValue = m

　　End If

　　Set objMatches = Nothing

　　Set objRE = Nothing

　　If Err Then MsgBox Err.Description

　　End Function

　　好了，運行一下子(點擊如下所述圖編輯器點菜單上的三邊形)，

　　

　　

　　輸入表格總行數，即可獲得最後結果，

　　

　　復制後，進入了百度站長工具平臺，批量提交處理

　　

　　到此，大功搞成，等待百度站長平臺處置，但發生效力時間較慢，作者的經驗約是30天左右，