附上代码 工具-》宏-》 vb编辑器-》双击左侧树型目录的sheet1,然后在右侧代码区复制一下内容。假设A列输入,B列显示日期 Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer Dim iCol As Integer iRow = Target.Row iCol = Target.Column If iCol = 1 And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date End If End Sub