サンクリのサークルリストをExcelに取り込む

(1)Excelサンクリのサークル一覧ページを開く
※[ファイル]→[開く]でURLを入力してWebページをインポートする


(2)URL抽出用のマクロを即興する


Sub test()

On Error Resume Next

For Each shp In ActiveSheet.Shapes
Cells(shp.TopLeftCell.Row, 4).Value = shp.Hyperlink.Address
Next shp

End Sub


(3)マクロ実行する


(4)リンク置換する
http://www.creation.gr.jp/jump/?」→空文字


(5)画像オブジェクトを削除する


(6)整形する


もう一手間。


(7)E列に「=ROW()」を入力する。


(8)E列をコピーし、形式を選択して貼り付けで「値」として貼り付ける(E列が行番号に等しくなる=順序保存用)


(9)全セル選択し、「セル結合を解除」する


(10)サークル名(B列)でソートする


(11)テーブルの一番下の余分な行を削除する


(12)E列でソートする(元のならびに戻す)


(13)E列を削除する


完成!!