单元格数据变化记录 求助

136211828

OK,大致明白了，见附件，看是否合意

136211828

1. Sub yshu()
   
2. Range("F2:F19") = Range("A2").Resize(18, 1).Value
   
3.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
   
4.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
   
5.         ("E1:E19"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
   
6.         xlSortNormal
   
7.     With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
   
8.         .Header = xlYes
   
9.         .MatchCase = False
   
10.         .Orientation = xlTopToBottom
    
11.         .SortMethod = xlPinYin
    
12.         .Apply
    
13.     End With
    
14.     i = Sheets("Sheet2").Cells(65536, "A").End(xlUp).Row
    
15.     t = i + 1
    
16.     Sheets("Sheet2").Cells(t, "A") = Sheets("Sheet1").Range("L22").Value
    
17.       End Sub

复制代码

附上代码，另加上了辅助列

kok321

136211828 发表于 2013-2-7 17:49
附上代码，另加上了辅助列

非常感谢，我想要的就是这个效果!