假设你要改变D列
range("D:D").numberformatlocal="yyyy-mm-dd hh:mm:ss "
Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm;ss;@"
Dim strtemp$, strAdd$
strtemp = Trim(ActiveCell.Value)
strAdd = ActiveCell.Address
If Len(strtemp) > 0 Then
ActiveCell.Offset(0, 1).Value = Format(Now, "yyyy-mm-dd hh:mm:ss")
End If