用VBA排序之后，如何定位到排序前所在行？

klww9527

比如说排序前光标在60行，大概在屏幕的中间位置，排序之后，这行数据到了80行。



用VBA排序之后，屏幕会自动滚到首行，光标所在当前行还是在60行。


如何才能在排序后，光标还是定位到这行数据上（也就是排序后的80行），并滚动到屏幕中间。

1. ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
   
2.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("M:M"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
3.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("O:O"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
4.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("B:B"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
5.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
6.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("P:P"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
7.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("E:E"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
8.     ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("F:F"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
9.     With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
   
10.         .Header = xlYes
    
11.         .MatchCase = False
    
12.         .Orientation = xlTopToBottom
    
13.         .SortMethod = xlPinYin
    
14.         .Apply
    
15.     End With
    

复制代码

3190496160

找到一个唯一性的标志，排序之前用变量记录这个标志，排序后再定位这个标志所在行，选定，

klww9527

3190496160 发表于 2023-6-5 13:25
找到一个唯一性的标志，排序之前用变量记录这个标志，排序后再定位这个标志所在行，选定，

一行数据本身没有哪一列是唯一的，要好几列组合起来可以确定唯一性。

excel本身没有这样的能力么？比如行对象的指针？

还有其他办法么？

3190496160

klww9527 发表于 2023-6-5 14:51
一行数据本身没有哪一列是唯一的，要好几列组合起来可以确定唯一性。

excel本身没有这样的能力么？比 ...

那就几列组合起来确定唯一性嘛

klww9527

好吧，看来只能这样了。
谢谢