ループの結果がおかしい、指定範囲外のセルに結果が出力される

Question

前提・実現したいこと

for文で１ずつ加算されていく繰り返し処理をしています。
B5に値を入れるとその直下のB6にはB5と同じ値、B7以降は1ずつ加算されていくようにしたいです。

For i 1 to 10 までの繰り返し処理ですが、i=10の結果が処理で指定していないセルに出力されます。

実現したい状態↓

発生している問題・エラーメッセージ

・B5セルに、最初に入れた値ではなくループ処理の最後のB15に出力された値と同じ値が入力されます

該当のソースコード

Sub sample()
 Dim i As Long
 Dim number As Range
 Set number = Cells(5, 2)
 Dim calcNumber As Range
 Set calcNumber = Cells(i + 5, 2)
 
  
 For i = 1 To 10
    If i = 1 Then
        calcNumber = number
        
    Else
        calcNumber = calcNumber + 1
        
    End If
        Cells(i + 5, 2).Value = calcNumber
   
   
 Next i
 
 'MsgBox i
 'MsgBox calcNumber
 'MsgBox number
End Sub

試したこと

MsgBox i

で「11」が出力されました。

MsgBox number

で「14」が出力されました。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Sub sample()
 Dim i As Long
 Dim number As Long
 number = Cells(5, 2).Value
 Dim calcNumber As Long
 calcNumber = Cells(i + 5, 2).Value


 For i = 1 To 10
    If i = 1 Then
        calcNumber = number

    Else
        calcNumber = calcNumber + 1

    End If
        Cells(i + 5, 2).Value = calcNumber


 Next i

 'MsgBox i
 'MsgBox calcNumber
 'MsgBox number
End Sub

Comments

[hkok96]

解決しました。ありがとうございます。変数numberやcalcNumberの型やセットの仕方でうまくいかなかったようです。

[jinoji]

Set calcNumber = Cells(i + 5, 2) でセルの値でなく初期値セルそのものをセットしているので、
calcNumber = calcNumber + 1がそのセルの値を更新する文になってしまっていたということかと。

[hkok96]

なるほど、ありがとうございます。

Answer 2

こういうことですか。

Sub sample()
    Dim i As Long
    Dim number As Long
    number = Cells(5, 2).Value
    For i = 1 To 10
        Cells(i + 5, 2).Value = i - 1 + number
    Next i
End Sub

Comments

[hkok96]

ありがとうございます。numberの型とセットの仕方、勉強になりました。