Office中国论坛/Access中国论坛

标题: [求助] 如何按照字段的值快速重复插入记录 [打印本页]

作者: kill00735 时间: 2007-3-3 21:19
标题: [求助] 如何按照字段的值快速重复插入记录
表中有两个字段 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 时间: 2007-3-4 01:27
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 时间: 2007-3-4 02:44
感谢cola点拨

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)