Excel:有没有更简单的方法来实现这一目标; A列中的数字1 - 20,C列中的21-40,E列中的41-60

时间:2016-06-22 20:36:10

标签: excel

excel是否有更简单的方法来实现这一目标; A列中的数字1 - 20,C列中的21-40,E列中的41-60,依此类推。

A     B    C     D    E
1          6          11
2          7          12
3          8          13
4          9          14
5          10         15

非常感谢任何帮助

1 个答案:

答案 0 :(得分:3)

我不确定你在做什么,但这个小子程序会做你需要做的......我想:

Sub makenumbers()
    Dim intCol As Integer, intRow As Integer, intCounter As Integer
    intCol = 1
    intCounter = 1
    For intCol = 1 To 40 Step 2
        For intRow = 1 To 20
            Sheet1.Cells(intRow, intCol).Value = intCounter
            intCounter = intCounter + 1
        Next intRow
    Next intCol
End Sub

只需将for intcol = 1 to 40 step 2更改为您的上一栏应该是什么。