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

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





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

fjzjyan

Sub a()
Dim n As Integer
Dim i As Integer
Dim rg As Range
Dim x As Integer
Set rg = Sheets(1).[a2]
Do Until IsEmpty(rg)
n = rg.Offset(0, 1)
i = rg.Row
For x = 1 To n - 1
Rows(i + x).Insert
rg.Offset(x, 0) = rg
rg.Offset(x, 1) = rg.Offset(0, 1)
Next x
Set rg = rg.Offset(n, 0)
Loop
End Sub