URLの中の数字だけを一つずつ増やして並べる方法はないでしょうか？

投稿者 : ならまな     投稿日時 : 2022/10/18(Tue) 16:25:12     OS : Windows 11     EXCEL : 未指定

---

Excelについて質問です。

https://ameblo.jp/saigakizaemon
entry-12770019402.html

ExcelにこのようなURL複数並べてを並べて数字の部分、(この場合「12770019402」)だけ自動的に数字を一つずつ増やして、違うURLを複数作って並べたいのですが、そのような方法はないでしょうか？

例えば
「
https://ameblo.jp/saigakizaemon
entry-12770019402.html

https://ameblo.jp/saigakizaemon
entry-12770019403.html

https://ameblo.jp/saigakizaemon
entry-12770019404.html

https://ameblo.jp/saigakizaemon
entry-12770019405.html

https://ameblo.jp/saigakizaemon
entry-12770019406.html

https://ameblo.jp/saigakizaemon
entry-12770019407.html

https://ameblo.jp/saigakizaemon
entry-12770019408.html

https://ameblo.jp/saigakizaemon
entry-12770019409.html

https://ameblo.jp/saigakizaemon
entry-12770019410.html」

などのようにExcelを使って手動ではなく、自動的に一つずつ数字だけ変えてURLを並べたいのですが、方法はないでしょうか？

投稿者 : さんこう     投稿日時 : 2022/10/18(Tue) 16:46:08

---

参考になれば。

Sub Test()
    Dim n As Currency, r As Long
    n = 12770019401#
    r = 1
    Do While r <= 10000
        Cells(r, "A") = "https://ameblo.jp/saigakizaemon" & vbLf & "entry -" & n + r & ".html"
        r = r + 1
    Loop
End Sub