Office中国论坛/Access中国论坛

标题: 请问重排序的VBA怎么写 [打印本页]

作者: andrewzeng 时间: 2008-12-11 23:45
标题: 请问重排序的VBA怎么写
如题和图所示，提前感谢大家的帮忙

作者: tmtony 时间: 2008-12-12 00:11
有什么规律,先排第1列再排第3列?

作者: 方漠 时间: 2008-12-12 20:07
将标签号这列移到存槽列前, 运行以下代码.

Sub TestA()
Dim I, J, K
Dim Lrow As Long, Lcol As Byte

K = 2
Lrow = Range("A65536").End(xlUp).Row
Lcol = Range("A2").End(xlToRight).Column

For I = 2 To Lrow

For J = 1 To Lcol

Range("F" & K) = Cells(I, J).Value
K = K + 1

Next J

Next I

End Sub

作者: andrewzeng 时间: 2008-12-13 10:13
高人呀，这的确是我想要的效果，非常感谢了

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