vba 循环依次插入a，b，c，d，插入100行

Question

如题所述

Answer 1

Sub s()
For i = 1 To 97 Step 4
Cells(i, 1) = "a"
Cells(i + 1, 1) = "b"
Cells(i + 2, 1) = "c"
Cells(i + 3, 1) = "d"
Next
End Sub追问

要根据abcd的数量来依次输入指定数量的a,b,c,d且输入完指定数量d之后要从第二行的a继续输出，输出成上面这样的表，该怎么实现，，，求大神帮帮忙

追答

Sub s()
n = 1
For i = 2 To 4
For j = 1 To 4
For k = 1 To Cells(i, j)
n = n + 1
Cells(n, 5) = Cells(1, j)
Next k, j, i
End Sub

本回答被提问者采纳