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
非常感谢任何帮助
答案 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
更改为您的上一栏应该是什么。