(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 shpEnd Sub
(4)リンク置換する
「http://www.creation.gr.jp/jump/?」→空文字
もう一手間。
(8)E列をコピーし、形式を選択して貼り付けで「値」として貼り付ける(E列が行番号に等しくなる=順序保存用)
(9)全セル選択し、「セル結合を解除」する
完成!!