Google 短縮URL API で複数のURLを一括返還するEXCELマクロ

gistfile1.txt

Public Sub Sample()
    Dim i As Integer
    i = 1
    Do
        Cells(i, 10) = GetShortenedLinkGoogl(Cells(i, 1))
        i = i + 1
    Loop Until Cells(i, 1) = ""
End Sub

http://www.ka-net.org/office/of38.htmlを参照