軟體: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
不曉得哪裡出了問題
求解請各位大大 幫忙檢視 再麻煩了謝謝

Range("J4").Value = Range("D" & 3 + i).Value + 1

改以range("d" & 3 + i)、cells(3+i,"d")或range("d2").offset(i)

但這樣會一直修J4的內容，如果J欄也要一直往下跑的話Range("J" & 3 + i)

前面j4如原文也要列偏移的話，同上修改

感謝newacc大大與soyoso大大 可以執行了感恩