求教如何一键更新日期

5550381

如果直接更新多个条件的日期：求大神原文件

无敌小猪猪

原贴还没结束呢

5550381

无敌小猪猪 发表于 2024-4-2 14:42
原贴还没结束呢

那个描述的有点乱，这个文件更新后的。

swl4561255

慎用，一旦更改，无法还原。

1. Sub 更新日期()
   
2. ar = [A1].End(4).Row
   
3. For i = 2 To ar
   
4.   If Range("C" & i) <> Date Then
   
5.     Range("C" & i) = Range("D" & i)
   
6.   End If
   
7. Next
   
8. End Sub
   
9. Sub 替换日期()
   
10. ar = [A1].End(4).Row
    
11. For i = 2 To ar
    
12.   Range("D" & i) = Range("C" & i) + Val(Replace(Range("B" & i), "天", ""))
    
13. Next
    
14. End Sub

复制代码

5550381

swl4561255 发表于 2024-4-2 14:52
慎用，一旦更改，无法还原。

如何筛选D列中日期与当天一致更改到C列，不一致则不更改呢

swl4561255

1. Sub 更新日期()
   
2. ar = [A1].End(4).Row
   
3. For i = 2 To ar
   
4.   If Range("D" & i) =Date Then
   
5.     Range("C" & i) = Range("D" & i)
   
6.   End If
   
7. Next
   
8. End Sub

复制代码

5550381

谢谢，非常感谢