[Excel小技集]セルの値からURLを抽出する方法

[Excel小技集]セルの値からURLを抽出する方法

excel_sheet

調査対象のWebサイトがあって

Excelでハイパーリンクに設定されているURLを抽出して表示する方法をご紹介します。

 

 

1.対象のページでリンクをコピー

list

参考例として、大手企業の平均年収ランキング(2012年)の大手企業225社(日経平均株価を構成する225銘柄に名を連ねる企業)の平均年収(2012年度)をランキングにして紹介しているページの一覧に設定されているURLを抽出します。

まずは、大手企業の平均年収ランキング(2012年)へアクセスして、対象の領域を選択し、コピーをしてください。

 

2.Excelのシートへペースト

 

コピーした大手企業の平均年収ランキング(2012年)の企業一覧をExcelのシートにペースト。

company_list

 

3.マクロを作成

excel_getURL

マクロ名はGetURLで、マクロを作成してください。

 

 

4.マクロを作成

[vb]
Public Sub GetURL()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Range.Offset(0, 5) = h.Address
Next
End Sub
[/vb]

5.マクロを実行すると…

excel_jikkou

 

Excelカテゴリの最新記事