老师们好，求助关于排序出错

asd1220

老师们好，我想用宏实现排序功能，但是自己写的代码总是出错，还请老师们指点迷津

排序方式为：A列到P列按照I列进行排序，并排除2行标题行

现在问题出在定义最后一行数据上
代码如下，运行时提示不支持属性或方法

1. Private Sub rankit_Click()
   
2. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   
3. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I3").End(xlDown) _
   
4.         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
5. With ActiveWorkbook.Worksheets("Sheet1").Sort
   
6. .SetRange Range("A3:P" & .cells(Rows.Count, 1).End(xlUp).Row)
   
7. .Header = xlGuess
   
8. .MatchCase = False
   
9. .Orientation = xlTopToBottom
   
10. .Apply
    
11.     End With
    
12. End Sub
    

复制代码

asd1220

1. Private Sub rankit_Click()
   
2. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   
3. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I3").End(xlDown) _
   
4.         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
5. With ActiveWorkbook.Worksheets("Sheet1").Sort
   
6. .SetRange Range("A3:P3").End(xlUp).Row
   
7. .Header = xlGuess
   
8. .MatchCase = False
   
9. .Orientation = xlTopToBottom
   
10. .Apply
    
11.     End With
    
12. End Sub

复制代码

这么写的话提示类型不匹配

1. 
   
2. Private Sub rankit_Click()
   
3. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   
4. ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I3").End(xlDown) _
   
5.         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
6. With ActiveWorkbook.Worksheets("Sheet1").Sort
   
7. .SetRange Range("A3:P").End(xlUp).Row
   
8. .Header = xlGuess
   
9. .MatchCase = False
   
10. .Orientation = xlTopToBottom
    
11. .Apply
    
12.     End With
    
13. End Sub

复制代码

这么写提示range作用于global时失败

08yj2001

写成Range("A3:P“ & ActiveWorkbook.Worksheets("Sheet1").range("P65536").end(xlup).row)试试

asd1220

08yj2001 发表于 2018-6-24 08:29
写成Range("A3:P“ & ActiveWorkbook.Worksheets("Sheet1").range("P65536").end(xlup).row)试试

感谢老师的指点！

活在理想的世界

你这是录得把？排序手写不是这样的。

你最好弄一个附件，把目标数清楚让别人重新给你写一个看看。

asd1220

活在理想的世界 发表于 2018-6-24 09:46
你这是录得把？排序手写不是这样的。

你最好弄一个附件，把目标数清楚让别人重新给你写一个看看。

谢谢老师关注，是录的宏，我已经把想要表达意思的附件上传了

就是按照I列排序

Book1.zip (9.26 KB, 下载次数: 8)

2018-6-25 08:47 上传

点击文件名下载附件

活在理想的世界

asd1220 发表于 2018-6-25 08:47
谢谢老师关注，是录的宏，我已经把想要表达意思的附件上传了

就是按照I列排序

三维表，合并单元格是没有办法用Sort排序的。
可以用数组排序替代，但是数组排序速度比较慢。

duquancai

asd1220 发表于 2018-6-25 08:47
谢谢老师关注，是录的宏，我已经把想要表达意思的附件上传了

就是按照I列排序

用数组排序         

活在理想的世界

1. Sub d()
   
2. Dim arr(): arr = Sheet1.Range("a1").CurrentRegion
   
3. For i = 3 To UBound(arr)
   
4.     For j = i To UBound(arr)
   
5.         If arr(i, 9) > arr(j, 9) Then
   
6.             For c = 1 To 16
   
7.                 t = arr(i, c): arr(i, c) = arr(j, c): arr(j, c) = t
   
8.             Next
   
9.         End If
   
10.     Next
    
11. Next
    
12. Sheet1.Range("a1").CurrentRegion = arr
    
13. End Sub

复制代码

asd1220

活在理想的世界 发表于 2018-6-25 09:07

学习了，感谢老师指点迷津！