Sub chaifen()
Dim x%, y%, m, n, arr1, arr2
With Sheets("小平")
.Range("D1").EntireColumn.ClearContents
arr1 = .Range("A1", "A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
arr2 = .Range("B1", "B" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For x = 1 To UBound(arr1)
For y = 1 To arr2(x, 1)
m = .Cells(.Rows.Count, 4).End(xlUp).Row
m = m + 1
.Cells(m, 4) = arr1(x, 1)
Next y
Next x
End With
End Sub