2010年10月24日 星期日

Excel-取出一大堆網址中的超連結

偶爾會用到要取出一大堆網址中的超連結,不知該如何處理會較有效率?後來找到的方法還不錯,利用 Excel 來操作,可以很快完成。

1. 將一堆超連結複製到 Excel 的工作表中。

2. 選取[開發人員]中的「Visual Basic」選項。

3. 選取[工作表1(工作表1)]。

4. 輸入以下的程式:

Sub hyperlink()
For I = 1 To 186
     Cells(I, 2) = Cells(I, 1).Hyperlinks(1).Address
Next
End Sub

5. 選取[開發人員/插入]選項中的「按鈕」,在工作中建立一個按鈕。

image04

6. 指定巨集名稱為 hyperlink 程式。

7. 在工作表上按一下這個按鈕,即會在第2欄產生對應第1欄的超連結。

image08

如果出現陣列索引超出範圍,是表示程式中設定要執行300列的轉換,而工作表中的超連結沒有那麼多的原因。

以程式來執行,應該是比較快的,不了解程也沒關係。只要把程式留下來,就可以重覆使用。

沒有留言:

張貼留言

檢視其他文章

好康東東