当前一单元格的值大于0自动将值返回下一单元格的公式设置

金峰橡胶王金明

求助，需求如题：
前一单元格的值大于0自动将值返回下一单元格的公式设置

求助.rar (28.1 KB, 下载次数: 10)

2021-11-4 10:47 上传

点击文件名下载附件
求助.rar

大當家

=IF(D3>0,D3,"")？？

杠王之王

大佬，能否做到数据返回到后一格时前面的清空值。

齊俊丞

你这个效果得用VBA才好实现，若可以接受，可以写一个

白弟

函数做不到，要么vba

起跑线

谢谢大佬，帮忙写一下

幸运妹妹

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Row >= 3 And Target.Row <= 5 And Target.Value <> "" Then
Select Case Target
Case Is > 0
Target.Offset(0, 1) = Target
Target.ClearContents
Case Is <= 0
Target.Offset(0, 1).ClearContents
End Select
End If
End Sub

限d3:d5为自动范围。代码如上，具体见附件
副本求助.zip (14.71 KB, 下载次数: 11)

2021-11-4 10:47 上传

点击文件名下载附件
副本求助.zip