excel - 列值2 x 2

我想得到一个值2到10但2乘2的列，我的意思是，值（2,4,6,8,10）。

我写了这段代码：

Sub Contar2()
    For CONTADOR2 = 2 To 10 Step 2
        Dim fila As Integer
        fila = 1
        fila = fila + 1
        Application.ActiveSheet.Cells(fila, 5) = CONTADOR
    Next
End Sub

但这会在单元格（2,5）中返回10的值。我不知道如何阅读此代码。

最佳答案

您每次在fila循环中声明For，因此每次循环时，fila =2。您只需要稍微重构一下代码即可。请注意，在进入For循环之前，在For循环之外声明并设置为1。另外，在插入值后增加。见下文。

Sub Contar2()

    Dim fila As Integer
    Dim CONTADOR2 as Long

    fila = 1

    For CONTADOR2 = 2 To 10 Step 2
        Application.ActiveSheet.Cells(fila, 5) = CONTADOR2
        fila = fila + 1
    Next

End Sub

编辑：请求声明CONTADOR2，并将设置值更正为CONTADOR2

关于excel - 列值2 x 2，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/57586497/

Fila

excel - 列值2 x 2