写入代码使每行按日期自动排序

keep-003

大家好，此表已有其他代码，我想再写入代码使每行按D列的日期自动排序。

ykcbf1100

附件供参考。。

ykcbf1100

排序。。。

1. Sub ykcbf()  '//2024.12.23
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set rng = Range("a5:e" & r)
   
4.     rng.Sort rng.Columns(4), 1
   
5. End Sub
   
6. 
   

复制代码

titi012

在删除后面加上一个计数，然后在最后加一个排序。

1.     For i = lastRow To 1 Step -1
   
2.         ' 如果E列的值等于"特定值"，则删除整行
   
3.         If ws.Cells(i, "E").Value = 1 Then
   
4.             ws.Rows(i).Delete
   
5.             j = j + 1
   
6.         End If
   
7.     Next i
   
8.    
   
9.     ws.Activate
   
10.     Range("a5:e" & lsatrow - j).Sort [a5]
    
11.    

复制代码

杨建营

最后加上排序代码。

松永

参与 一下......