例大祭の準備

そろそろ例大祭の準備に。

1.サークル一覧をHTMLファイルのままダウンロードする（あ〜わ）。
2.各HTMLファイルをExcelでオープンする
3.あ〜わのシートをカット＆ペーストして１ページに連結する
4.マクロ書く

Sub test()
    Dim shp As Shape

    Dim cl As Range

    

    For Each shp In ActiveSheet.Shapes

        Set cl = shp.TopLeftCell

        Cells(cl.Row, 5).Value = shp.Hyperlink.Address

    Next shp
End Sub

5.マクロ実行

⇒サークルリスト完成

列Dのゴミ(バナー画像)は削除。