質問: bango + 1 loop end sub
回答: こんにちは range(cb).value = right("00" & bango, 3) これですと、右から3文字ですから、500~600になります。 1500~1600にしたいのなら、 range(cb).value = right("00" & bango, 4) になるはずです。 デバッグモードを使えば、各値を確認しながら一行づつ実行する事が出来ます。