excel怎么用VBA代码实现下面的效果?请高手指点!

2024-11-23 05:10:15
推荐回答(2个)
回答1:

事实上 你这个问题 使用 公式 就可以了 其实 每个单元格的数值 都是上一个单元格加25 !只不过 最后的 C17 不是这样子 你自己修改一下就可以了 干嘛要用VBA哪
B3 你自己输入数据 B4 =B3+25、C3 =B3+25 向下复制……
A3 ==ROUNDUP(ROW(A1)/5,0)&"-"&IF(MOD(ROW(A1),5)=0,5,MOD(ROW(A1),5)) 向下复制……
如果你一定要使用VBA的话 你再详细说说 具体的限制!然后再追问

回答2:

Sub xxx()
Dim i, j, x, y
x = 123
y = 3
For i = 1 To 3
For j = 1 To 5
Cells(y, 1) = "'" & i & "-" & j
Cells(y, 2) = x
x = x + 25
If x > 487 Then x = 487
Cells(y, 3) = x
y = y + 1
Next j
Next i
End Sub