Excel 如何通过循环/计数器向下移动2行而不是1行-VBA

我有下面的vba，它允许我每循环下一行。但是我想让它往下走两排，而不是一排。我该怎么做呢

Sub Languages()

 Range("L2").Select
    ActiveCell.Range("K1:L1").Select


    For counter = 2 To 6
        ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.ApplyChartTemplate ( _
            "C:\Users\arboari\AppData\Roaming\Microsoft\Templates\Charts\1Language.crtx")
        ActiveChart.SetSourceData Source:=Range("'Master Sheet'!$B$" & counter & ":$F$" & counter)
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
        With ActiveChart
            .HasTitle = False
            .Axes(xlCategory).Select
            .FullSeriesCollection(1).XValues = "='Master Sheet'!$B$:$B$3"
            .Parent.Top = 50
            .Parent.Left = c * 130
        End With
        Sheets("Master Sheet").Select
        ActiveCell.Offset(1, 0).Range("A1:I1").Select

        c = c + 3
    Next counter

End Sub

---

谢谢

只需在计数器=2到6的

之后添加
步骤2
，计数器=2到6的
步骤2

Sub Languages()

 Range("L2").Select
    ActiveCell.Range("K1:L1").Select


    For counter = 2 To 6 step 2 'loop every two rows
        ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.ApplyChartTemplate ( _
            "C:\Users\arboari\AppData\Roaming\Microsoft\Templates\Charts\1Language.crtx")
        ActiveChart.SetSourceData Source:=Range("'Master Sheet'!$B$" & counter & ":$F$" & counter)
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
        With ActiveChart
            .HasTitle = False
            .Axes(xlCategory).Select
            .FullSeriesCollection(1).XValues = "='Master Sheet'!$B$:$B$3"
            .Parent.Top = 50
            .Parent.Left = c * 130
        End With
        Sheets("Master Sheet").Select
        ActiveCell.Offset(1, 0).Range("A1:I1").Select

        c = c + 3
    Next counter

End Sub

这将使用
2
，然后下一个循环向上执行第二步，因此
4
，然后再次执行
6

更多关于
（我想你在这里有一个输入错误：
FullSeriesCollection（1）。XValues=“='Master Sheet'！$B$：$B$3”
你是否忘记在这里添加第一个单元格的行，或者也在你的代码中？）如果你只是在谷歌上搜索你的问题，你会在结果的第一页上遇到无数这样做的例子。