用VBA吧：
鼠标右击Sheet1的标签，【查看代码】在代码窗口粘贴下面的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, 1) = Date: Target.Offset(, 2) = Target * 0.8
Target.Offset(1).Select
Selection.EntireRow.Insert
End If
End Sub
按Atl + F11，回到Excel里，去输入数据试一试！
填写日期，和计算数据，还有插入新行一并都做了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024