Question

在vb中运行一个程序,把输出结果放在excel中,但要求结果只放在a

在vb中运行一个排列数字的程序,把输出结果放在excel中,但要求结果只放在a1-a10行,当结果超过a10行排列不下时,自动跳转到b1-b10,c1-c10....以此类推.
例如,从1-6中任选2个数字做组合,共15种组合方法,要排在a1-a15才能排完,我想把结果排在a1-a10,b1-b5.
偶不懂VBA,请高手指点程式写法.多谢.
关于数字组合实现的程式如下,我该如何把你的结合进去呢?
Sub aaa()
Range("a1").Select
For a = 1 To 6
For b = 1 To 6
Do While a < b
Sum = a & b
ActiveCell.Value = Sum
ActiveCell.Offset(1, 0).Select
Exit Do
Loop
Next
Next
End Sub

那如何能让他不出错啊?

Answer 1

Sub aaa()
'Range("a1").Select

Dim C, R, N As Integer

N = 0
For a = 1 To 6
For b = 1 To 6
Do While a < b
Sum = a & b
' ActiveCell.Value = Sum
' ActiveCell.Offset(1, 0).Select

N = N + 1
R = Int(N / 10) + 1
C = N Mod 10
If C = 0 Then
R = R - 1
C = 10
End If
Sheet1.Cells(C, R) = Sum

Exit Do
Loop
Next
Next
End Sub

'那个答案中对于10倍数会出错的

Answer 2

假设答案有m个,记为a(i)
for i = 1 to m
cells(vba.int((i-1)/10)+1,i mod 10) = a(i)
next i