要用 VBA ， 或者 迭代运算 可能有点用, 写VBA的话, WPS 用不了:
Excel 内 右键 点工作表 名字--查看代码,如下代码 复制进去，存为启用宏的工作薄，启用宏可使用：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then '如果当前编辑单元格在第1列 A列
If Target <> "" Then
Target.Offset(0, 1) = Date '当前单元格右边一格 =日期
Else
Target.Offset(0, 1) = "" '如果清空 内容则右边一格 清空
End If
End If
End Sub
