Sub s()
arr = Sheets("sheet2").[a1].CurrentRegion
r = 1
c = 1
Sheets("sheet1").Activate
For i = 2 To UBound(arr)
For j = 1 To arr(i, 2)
Cells(r, c) = arr(i, 1)
c = c + 1
If c = 5 Then
r = r + 1
c = 1
End If
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024