新旧数据替换：如何自动将本次数据保存为上次数据？

naanhuanbao

新旧数据自动替换.zip (11 KB, 下载次数: 3)

2018-3-5 15:00 上传

点击文件名下载附件

naanhuanbao

坐等大侠......

ww87725244

函数就算了吧

1. Option Explicit
   
2. Dim k
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. With Sheet2
   
5.         If Not Intersect(Target, .Range("c3:c10")) Is Nothing Then
   
6.             If Target.Value <> k Then
   
7.                 Target.Offset(0, -1).Value = k
   
8.             End If
   
9.         End If
   
10. End With
    
11. End Sub
    
12. 
    
13. 
    
14. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
15. k = Target.Value
    
16. End Sub

复制代码

naanhuanbao

ww87725244 发表于 2018-3-5 18:23
函数就算了吧

感谢大侠！一定会解决我的问题的，我试试。谢谢！