サンクリのサークルリストを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列を削除する


完成！！