2,462
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim i As Long
Dim row As Long
row = 2
With Application.ActiveSheet
Do While .Cells(row, 1).Text <> ""
For i = 1 To Val(.Cells(row, 2).Text)
.Cells(row, i + 2) = .Cells(row, 1).Text & "-D" & i
Next
DoEvents
row = row + 1
Loop
End With
End Sub