[算表] Excel VBA 儲存格遞增問題請教各位大大

[ntuooo (cwcho)]

軟體:Excel

版本:2016
各位大大大家好
小弟寫了一個VBA程式如下
Sub change()
Range("j4").Value = Range("d3").Value + 1   '內容是儲存格j4內容是儲存格d3內容+1
MsgBox ("OK!")
End Sub
以上可以執行
因為也要改下面格 內容是儲存格j5內容是儲存格d4內容+1
...
以此類推到 內容是儲存格j13內容是儲存格d12內容+1
Sub change()
Dim i As Integer '設定變數i
For i = 1 To 10 'i由1到10
Range("j4").Value = Range("d3" + i).Value + 1 'd3儲存格+i
Next i '持續執行i 到結束
MsgBox ("OK!")
End Sub
不曉得哪裡出了問題
求解請各位大大 幫忙檢視 再麻煩了謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.161.75.183
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1506481035.A.E1D.html
推 newacc: Range("J4").Value = Range("D" & 3 + i).Value + 1
→ soyoso: 改以range("d" & 3 + i)、cells(3+i,"d")或
→ soyoso: range("d2").offset(i)
→ newacc: 但這樣會一直修J4的內容，如果J欄也要一直往下跑的話
→ newacc: Range("J" & 3 + i)
→ soyoso: 前面j4如原文也要列偏移的話，同上修改
→ ntuooo: 感謝newacc大大與soyoso大大 可以執行了感恩