请问重排序的VBA怎么写

andrewzeng

如题和图所示，提前感谢大家的帮忙

tmtony

有什么规律,先排第1列 再排第3列?

方漠

将标签号这列移到 存槽列前, 运行以下代码.

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

高人呀，这的确是我想要的效果，非常感谢了