关于excel 宏VBA编程中，用程序生成数据时遇到的一个问题

Question

Sub makenum()
Dim maxnum As Long
Dim a As Long
a = 1
maxnum = 50
For i = 2 To maxnum
For j = i To maxnum
Dim juge As Boolean
juge = False
For k = 2 To i
If i Mod k = 0 And j Mod k = 0 Then juge = True
If juge = False And i + j <= maxnum Then
Range("A#").Value = i
Range("B#").Value = j
Range("C#").Value = i + j
Range("D#").Value = i * j * (i + j)
a = a + 1
End If
Next
Next
Next
End Sub

如上是我的代码段，没学过VBA语法不太懂，我的愿望是#代替的地方用a这个变量控制来使每次写入数据时都是这一列的顶格。

Answer 1

Range("A#").Value = i-------cells(a,1).value
Range("B#").Value = i-------cells(a,2).value
cells可以接受两个变量 作为行列的参数