我看过但找不到解决方案。
如何增加变量?就像在任何其他语言中一样,您只需在循环结束之前执行++(变量名称)。在我的例子中,我想增加J.
Dim j as integer
j = 13
FinalRow = Range("B15").End(xlUp).Row
For i = 9 To FinalRow
Range("B" & i).Copy Destination:=Sheets("Design").Range("A" & j)
J++
Next i
代码从B9-B15循环,并从A13向下粘贴设计表中的信息。
答案 0 :(得分:5)
这样做:
J = J + 1
Simples。