excel多列按行排序，vba代码，老师们帮忙看看！

Zamyi

1. Sub zz()
   
2. a = Range("e3", [a65536].End(3))
   
3. c = UBound(a, 2): l = UBound(a)
   
4. For i = 1 To l
   
5.   ReDim b(11)
   
6.   For j = 1 To c
   
7.     b(a(i, j)) = a(i, j)
   
8.   Next
   
9.   k = 1
   
10.   For j = 1 To 11
    
11.     If b(j) Then a(i, k) = b(j): k = k + 1
    
12.   Next
    
13. Next
    
14. With Range("g3").Resize(l, c)
    
15.   .NumberFormatLocal = "@"
    
16.   .Value = a
    
17. End With
    
18. End Sub

复制代码