0
我想通过使用“做while循环”来做2维动态乘法表,但我可以得到只有1行与此代码可以有人帮助吗?我需要使用while循环而不是另一个循环。通过使用do while循环与excel vba做乘法表
Sub multp_doWhileLoop()
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
k = Range("b1").Value
l = Range("d1").Value
ReDim multp_tab(k, l) As Long 'defining ixj matrix
i = 1
j = 1
Range("a2:zz100000").Clear
Cells(2, 1) = "mult."
Do While i < k + 1
Do While j < l + 1
Cells(i + 2, 1).Value = i 'for frame
Cells(2, j + 1).Value = j '
multp_tab(i, j) = i * j
j = j + 1
Loop
i = i + 1
Loop
i = 1
j = 1
Do While i < k + 1
Do While j < l + 1
Cells(i + 2, j + 1).Value = multp_tab(i, j)
j = j + 1
Loop
i = i + 1
Loop
End Sub
不,它不适合我的考试。我试图了解其他循环有同样的问题。我用for循环做了,但无法做到这一点。谢谢你的帮助。 –