[求助] 如何按照字段的值快速重复插入记录

kill00735

表中有两个字段 a，b， 存储数据如下，要求按照b的值重复插入记录条数

a                 b

1111          2

2222          4

3333          1

4444          2

。。。。。。





实现后，表中记录应该如下：

a                b

1111          2

1111          2

2222          4

2222          4

2222          4

2222          4

3333          1

4444          2

4444          2





怎样实现，向各位大侠求助，谢谢！

cola

Sub X()
Dim MyNum
MyNum = Range("B65536").End(xlUp).Row

For i = 2 To MyNum
    j = Range("F65536").End(xlUp).Row + 1
    For k = 1 To Range("B" & i).Value
        Range("A" & i & ":B" & i).Copy Range("E" & j)
        j = j + 1
    Next k
Next i
End Sub

VBA方法,函数方法还不会.

kill00735

感谢cola点拨