小白求助

跪求大神

多个单位我打错词了

求大神帮忙

k列数字多少就展示多少次？

Sub fz()
Dim b, c, d, i, j, arr
arr = Sheets("a").UsedRange
Z = Sheets("a").Range("e65536").End(xlUp).Row
For i = 1 To Z
j = 5
b = Sheets("a").Cells(i + 1, j)
Sheets("b").Activate
For c = 1 To b
Sheets("b").Cells(d + 1, 1) = arr(i + 1, 1)
Sheets("b").Cells(d + 1, 2) = arr(i + 1, 2)
Sheets("b").Cells(d + 1, 3) = arr(i + 1, 3)
Sheets("b").Cells(d + 1, 4) = arr(i + 1, 4)
d = d + 1
Next c
Next i
End Sub