Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel宏-用于循环增量_Excel_For Loop_Ms Office_Increment_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel宏-用于循环增量

Excel宏-用于循环增量

excel for-loop ms-office vba

Excel宏-用于循环增量,excel,for-loop,ms-office,increment,vba,Excel,For Loop,Ms Office,Increment,Vba,我已经找过了，但找不到解决办法 如何增加一个变量？就像在任何其他语言中一样，您只需在循环结束之前执行++（变量名）。在我的例子中，我想增加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

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向下粘贴设计表中的信息。

只需执行以下操作：

J = J + 1
简单