VBA排序问题,大于256列,不能用自定义列表

-_正在输入

1. 现在的代码如下,但是没用,排序出来结果不对

复制代码

1. 
   
2. 
   
3. Sub 自定义序列并按行排序2010版()
   
4. y = Sheets("Sheet1").Range("A65536").End(3).Row
   
5. t = Sheets("Sheet1").Range("XFD1").End(xlToLeft).Column     'sheet2 A列最后行
   
6. 'a = ActiveSheet.UsedRange.Address(0, 0)
   
7. 
   
8. Call d2
   
9.   With Worksheets("Sheet1")
   
10.   With .Sort
    
11.     With .SortFields
    
12.       .clear
    
13.       .Add Key:=Range(Cells(1, 5), Cells(1, t)), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Chr(34) & x & Chr(34), DataOption:=xlSortNormal
    
14.       
    
15.     End With
    
16.     .SetRange Range(Cells(1, 5), Cells(y, t))
    
17.     .Orientation = xlLeftToRight
    
18.     .Apply
    
19.   End With
    
20.   End With
    
21. End Sub

复制代码

1. Sub d2()
   
2. For i = 2 To Sheets("查补排序").Range("A65536").End(3).Row
   
3. x = x & Sheets("查补排序").Cells(i, 1) & ","
   
4. Next i
   
5. x = Left(x, Len(x) - 1)
   
6. 
   
7. End Sub
   

复制代码

test.rar (30.9 KB, 下载次数: 3)

2019-10-21 16:12 上传

点击文件名下载附件

microyip

http://club.excelhome.net/thread-1443182-1-1.html 二维（以下）数组排序的自定义函数，参考变通一下

xuemei0216

看一下，是不是你想要的样子

-_正在输入

xuemei0216 发表于 2019-10-21 18:37
看一下，是不是你想要的样子

是这样的,非常感谢