软件: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大大 可以执行了感恩